Changeset 21664 for perl5/Pugs-Compiler-Perl6/Makefile.PL

Timestamp:

08/01/08 13:21:45 (5 months ago)

Author:

fglock

Message:

[v6.pm] more tests # 6500

Files:

• perl5/Pugs-Compiler-Perl6/Makefile.PL (modified) (1 diff)

perl5/Pugs-Compiler-Perl6/Makefile.PL

@@ -148 +148 @@
         $text =~ s/^([^\n]*?\; *redo\;)/ok( 0, "redo works in perl5 blocks", :todo ) ; # $1/mg;
     }
+    if ( $out eq 't/spec/S03-operators/assign.t' ) {
+        # my @z = ($::('Foo::b')...
+        $text =~ s/^(\s+)my \@z = (\(\$::\(\'Foo::b\'\))/$1my \@z = undef; # TODO namespace problem ... = $2/m;
+        $text =~ s/^(\s+)([^\n]*?lhs treats \$::\(\'Foo::b\'\))/$1Test::ok( 0, "skip", :todo ); # $2/mg;
+    }
     
     # add "use Test" to most files