Diff of /spamassassin/trunk/lib/Mail/SpamAssassin/Message.pm

Parent Directory | Revision Log | Patch

--- spamassassin/trunk/lib/Mail/SpamAssassin/Message.pm	2005/09/18 21:09:00	289975
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Message.pm	2005/09/18 21:17:52	289976
@@ -123,11 +123,14 @@ sub new {
   if (ref $message eq 'ARRAY') {
      @message = @{$message};
   }
-  elsif (ref $message eq 'GLOB') {
+  elsif (ref $message eq 'GLOB' || ref $message eq 'IO::File') {
     if (defined fileno $message) {
       @message = <$message>;
     }
   }
+  elsif (ref $message) {
+    dbg("message: Input is a reference of unknown type!");
+  }
   else {
     @message = split ( /^/m, $message );
   }