diff options
author | Brandon Casey <casey@nrlssc.navy.mil> | 2008-09-15 20:23:24 +0400 |
---|---|---|
committer | Junio C Hamano <gitster@pobox.com> | 2008-09-16 10:10:23 +0400 |
commit | 8409bb3708e1dd7c035617795c49e4ca7e17c56a (patch) | |
tree | 362a44a619cd2ad09cbf39d6f8b78bd15c387399 /t/t9700/test.pl | |
parent | 97a7a82f199f165f85fe39a3c318b18c621e6335 (diff) |
t9700/test.pl: avoid bareword 'STDERR' in 3-argument open()
Some versions of perl complain when 'STDERR' is used as the third argument
in the 3-argument form of open(). Convert to the 2-argument form which is
described for duping STDERR in my second edition camel book.
Signed-off-by: Brandon Casey <casey@nrlssc.navy.mil>
Tested-by: Tom G. Christensen <tgc@statsbiblioteket.dk> on RHEL 3, Perl 5.8.0
Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 't/t9700/test.pl')
-rwxr-xr-x | t/t9700/test.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/t9700/test.pl b/t/t9700/test.pl index 4d2312548a..b47c71989a 100755 --- a/t/t9700/test.pl +++ b/t/t9700/test.pl @@ -38,7 +38,7 @@ is($r->get_color("color.test.slot1", "red"), $ansi_green, "get_color"); # Failure cases for config: # Save and restore STDERR; we will probably extract this into a # "dies_ok" method and possibly move the STDERR handling to Git.pm. -open our $tmpstderr, ">&", STDERR or die "cannot save STDERR"; close STDERR; +open our $tmpstderr, ">&STDERR" or die "cannot save STDERR"; close STDERR; eval { $r->config("test.dupstring") }; ok($@, "config: duplicate entry in scalar context fails"); eval { $r->config_bool("test.boolother") }; |