[svn:parrot] r23950 - trunk/t/configure

Author: jkeenan
Date: Sat Dec 15 12:58:44 2007
New Revision: 23950

Modified:
   trunk/t/configure/034-step.t

Log:
Correcting syntax in one test that was garbled when 'capture' was introduced.

Modified: trunk/t/configure/034-step.t
==============================================================================
--- trunk/t/configure/034-step.t        (original)
+++ trunk/t/configure/034-step.t        Sat Dec 15 12:58:44 2007
@@ -109,10 +109,13 @@
     open my $IN, '>', $dummy or croak "Unable to open temp file for writing";
     print $IN q{@foobar@\n};
     close $IN or croak "Unable to close temp file";
-    my ($stdout, $stderr) ;
-    capture ( sub { ok( genfile( $dummy => 'CFLAGS' ), 
-                "genfile() returned true when warning expected" ) },
-                 \$stdout, \$stderr);
+    my ($rv, $stdout, $stderr) ;
+    capture (
+        sub { $rv = genfile( $dummy => 'CFLAGS' ) }, 
+        \$stdout,
+        \$stderr
+    );
+    ok($rv, "genfile() returned true when warning expected" );
     like( $stderr, qr/value for 'foobar'/, "got expected warning" );
 
     unlink $dummy or croak "Unable to delete file after testing";