From: Ben Faga <faga@cshl.edu>
Date: Tue, 31 May 2005 18:23:31 +0000 (+0000)
Subject: Muffled a warning message, by changing '">... 
X-Git-Tag: v0.11008~555
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b27e0c385d0f713ba238c4eb2c7a4e57449efec;p=dbsrgits%2FSQL-Translator.git

Muffled a warning message, by changing '">&NULL"' (which I don't really understand) to '\*NULL' which is a nice pointer to the file handle opened in the line above.
---

diff --git a/t/31dumper.t b/t/31dumper.t
index 1f42e13..2a813b8 100644
--- a/t/31dumper.t
+++ b/t/31dumper.t
@@ -49,7 +49,7 @@ close $fh or die "Can't close file '$filename': $!";
 
 my $perl = $Config{'perlpath'};
 open( NULL, ">", File::Spec->devnull );
-my $pid = open3( gensym, ">&NULL", \*PH, "$perl -cw $filename" );
+my $pid = open3( gensym, \*NULL, \*PH, "$perl -cw $filename" );
 my $res;
 while( <PH> ) { $res .= $_;  }
 waitpid($pid, 0);