You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by mm...@apache.org on 2009/12/10 17:53:17 UTC

svn commit: r889332 - /spamassassin/trunk/t/whitelist_addrs.t

Author: mmartinec
Date: Thu Dec 10 16:53:16 2009
New Revision: 889332

URL: http://svn.apache.org/viewvc?rev=889332&view=rev
Log:
Bug 6255: make a test whitelist_addrs.t pass under perl 5.6.* by
changing unrecognized 'open F,">&",$f' into 'open F,">&".fileno($f)'

Modified:
    spamassassin/trunk/t/whitelist_addrs.t

Modified: spamassassin/trunk/t/whitelist_addrs.t
URL: http://svn.apache.org/viewvc/spamassassin/trunk/t/whitelist_addrs.t?rev=889332&r1=889331&r2=889332&view=diff
==============================================================================
--- spamassassin/trunk/t/whitelist_addrs.t (original)
+++ spamassassin/trunk/t/whitelist_addrs.t Thu Dec 10 16:53:16 2009
@@ -92,7 +92,7 @@
   <$fh>;
 };
 $fh->close();
-open STDOUT, ">&", $oldout || die "Cannot dupe \$oldout: $!";
+open STDOUT, ">&".fileno($oldout) || die "Cannot dupe \$oldout: $!";
 select STDOUT; $| = 1;
 
 #warn "# $error\n";
@@ -119,7 +119,7 @@
   <$fh>;
 };
 $fh->close();
-open STDOUT, ">&", $oldout || die "Cannot dupe \$oldout: $!";
+open STDOUT, ">&".fileno($oldout) || die "Cannot dupe \$oldout: $!";
 select STDOUT; $| = 1;
 
 #warn "# $error\n";
@@ -143,7 +143,7 @@
   <$fh>;
 };
 $fh->close();
-open STDOUT, ">&", $oldout || die "Cannot dupe \$oldout: $!";
+open STDOUT, ">&".fileno($oldout) || die "Cannot dupe \$oldout: $!";
 select STDOUT; $| = 1;
 
 #warn "# $error\n";
@@ -183,7 +183,7 @@
   <$fh>;
 };
 $fh->close();
-open STDOUT, ">&", $oldout || die "Cannot dupe \$oldout: $!";
+open STDOUT, ">&".fileno($oldout) || die "Cannot dupe \$oldout: $!";
 select STDOUT; $| = 1;
 
 #warn "# $error\n";
@@ -210,7 +210,7 @@
   <$fh>;
 };
 $fh->close();
-open STDOUT, ">&", $oldout || die "Cannot dupe \$oldout: $!";
+open STDOUT, ">&".fileno($oldout) || die "Cannot dupe \$oldout: $!";
 select STDOUT; $| = 1;
 
 #warn "# $error\n";
@@ -234,7 +234,7 @@
   <$fh>;
 };
 $fh->close();
-open STDOUT, ">&", $oldout || die "Cannot dupe \$oldout: $!";
+open STDOUT, ">&".fileno($oldout) || die "Cannot dupe \$oldout: $!";
 select STDOUT; $| = 1;
 
 #warn "# $error\n";