[svn:parrot] r33614 - branches/testparrottest/lib/Parrot

[jkeenan]

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} 
);