[svn:parrot] r17473 - in trunk/languages: . regex/lib/Parrot/Test

[bernhard]

Author: bernhard
Date: Tue Mar 13 15:48:32 2007
New Revision: 17473

Modified:
   trunk/languages/LANGUAGES.STATUS.pod
   trunk/languages/regex/lib/Parrot/Test/Regex.pm

Log:
[languages/regex]
Bring regex back to unified languages testing.


Modified: trunk/languages/LANGUAGES.STATUS.pod
==============================================================================
--- trunk/languages/LANGUAGES.STATUS.pod        (original)
+++ trunk/languages/LANGUAGES.STATUS.pod        Tue Mar 13 15:48:32 2007
@@ -887,7 +887,7 @@
 
 =item Last verified with parrot version
 
-0.4.5
+0.4.9
 
 =item Location
 

Modified: trunk/languages/regex/lib/Parrot/Test/Regex.pm
==============================================================================
--- trunk/languages/regex/lib/Parrot/Test/Regex.pm      (original)
+++ trunk/languages/regex/lib/Parrot/Test/Regex.pm      Tue Mar 13 15:48:32 2007
@@ -112,12 +112,7 @@
 sub process {
     my ( $input, $output ) = @_;
 
-    my $TEST;
-    open( $TEST, '<', "$PARROT_EXE test_regex.pbc '$input' |" );
-
-    local $/;
-    my $actual_output = <$TEST>;
-    close $TEST;
+    my $actual_output = `$PARROT_EXE test_regex.pbc '$input'`;
     Test::More::is( $actual_output, $output );
 
     return;