This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/win32/runenv.t: Correct syntax error reported by bulk88++.
authorJames E Keenan <jkeenan@cpan.org>
Fri, 30 Nov 2012 02:25:07 +0000 (21:25 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Fri, 30 Nov 2012 02:25:07 +0000 (21:25 -0500)
Part of: RT #115788

t/win32/runenv.t

index a833c1a..b2d7895 100644 (file)
@@ -73,8 +73,8 @@ sub try {
   my ($env, $args, $stdout, $stderr) = @_;
   my ($actual_stdout, $actual_stderr) = runperl_and_capture($env, $args);
   local $::Level = $::Level + 1;
-  is ($stdout, $actual_stdout);
-  is ($stderr, $actual_stderr);
+  is $actual_stdout, $stdout;
+  is $actual_stderr, $stderr;
 }
 
 #  PERL5OPT    Command-line options (switches).  Switches in