Author: gisle.aas
Date: Wed Oct 22 04:31:46 2008
New Revision: 537
Modified:
trunk/test.pl
Log:
Don't complain about passing *.pm and *.pl files to test.pl
This happens for instance when you run 'perl test.pl t/test14.*'
or its shortcut 'perl test.pl 14'.
Modified: trunk/test.pl
==============================================================================
--- trunk/test.pl (original)
+++ trunk/test.pl Wed Oct 22 04:31:46 2008
@@ -165,10 +165,11 @@
run_command($cmd);
}
}
- else {
- warn "Unrecognized extension '$type' on test file '$test'\n"
- unless $type eq 'new'
- or $type eq 'outdir'; # handy for "test.pl
t/test01.*"
+ elsif ($type =~ /^(?:pl|pm|new|outdir)$/) {
+ # skip; handy for "test.pl t/test01.*"
+ }
+ else {
+ warn "Unrecognized extension '$type' on test file '$test'\n";
}
}
}
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [EMAIL PROTECTED]
-~----------~----~----~----~------~----~------~--~---
