Author: jkeenan Date: Sun Dec 7 08:13:34 2008 New Revision: 33614 Modified: branches/testparrottest/lib/Parrot/Test.pm
Log: There is no sub Usage() in this package. Modified: branches/testparrottest/lib/Parrot/Test.pm ============================================================================== --- branches/testparrottest/lib/Parrot/Test.pm (original) +++ branches/testparrottest/lib/Parrot/Test.pm Sun Dec 7 08:13:34 2008 @@ -422,7 +422,7 @@ my ($extension) = $example_f =~ m{ [.] # introducing extension ( pasm | pir ) # match and capture the extension \z # at end of string - }ixms or Usage(); + }ixms; if ( defined $extension ) { my $code = slurp_file($example_f); my $test_func = join( '::', $package, $example_test_map{$func} );