[Module-build-checkins] Module-Build/t common.pl,1.12,1.13

[Randy W. S. <si...@us...>]

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) = @_;