[Cooker] [Bug 558] [perl-File-MMagic] perl-File-MMagic - bug found in this module. binmode() called too early, please apply fix

[[Bug 558]]

https://qa.mandrakesoft.com/show_bug.cgi?id=558

[EMAIL PROTECTED] changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |FIXED



------- Additional Comments From [EMAIL PROTECTED]  2003-01-22 17:35 -------
patch has been applied. OK 



------- You are receiving this mail because: -------
You are on the CC list for the bug, or are watching someone who is.



------- Reminder: -------
assigned_to: [EMAIL PROTECTED]
description: 
bug found in this module. binmode() called too early, please apply. 
  :-) 
 
# diff -u /usr/lib/perl5/vendor_perl/5.8.0/File/MMagic.pm.org  
/usr/lib/perl5/vendor_perl/5.8.0/File/MMagic.pm 
--- /usr/lib/perl5/vendor_perl/5.8.0/File/MMagic.pm.org 2002-11-21  
13:23:05.000000000 +0100 
+++ /usr/lib/perl5/vendor_perl/5.8.0/File/MMagic.pm     2002-11-21  
13:23:47.000000000 +0100 
@@ -351,8 +351,8 @@ 
     } else { 
        my $filename = shift; 
        my $fh = new FileHandle; 
-        binmode($fh); 
        if ($fh->open("< $filename")) { 
+               binmode($fh); 
            &readMagicHandle($self, $fh); 
        } else { 
            warn __PACKAGE__ . " couldn't load specified file $filename";