Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11844/t
Modified Files:
common.pl
Log Message:
Remove unused subs that provided support for the 'Test' module that is no longer used.
Index: common.pl
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/common.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- common.pl 12 Apr 2005 20:09:42 -0000 1.12
+++ common.pl 29 Jun 2005 07:12:53 -0000 1.13
@@ -9,28 +9,12 @@
push @INC, $t_lib; # Let user's installed version override
}
-use Test();
sub have_module {
my $module = shift;
return eval "use $module; 1";
}
-sub need_module {
- my $module = shift;
- skip_test("$module not installed") unless have_module($module);
-}
-
-sub skip_test {
- my $msg = @_ ? shift() : '';
- print "1..0 # Skipped: $msg\n";
- exit;
-}
-
-sub skip_subtest {
- my $msg = @_ ? shift() : '(no reason given)';
- Test::skip "skip $msg", 1;
-}
sub save_handle {
my ($handle, $subr) = @_;
|
