develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
jkeenan
Date:
December 7, 2008 08:13
Subject:
[svn:parrot] r33614 - branches/testparrottest/lib/Parrot
Message ID:
20081207161334.C31ADCB9AF@x12.develooper.com
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} );



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About