Move cp(1)-like permission changes from copy to cp,

[p5sagit/p5-mst-13.2.git] / lib / AnyDBM_File.t

diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t
index 7bb1e49..cb9eee9 100755 (executable)
--- a/lib/AnyDBM_File.t
+++ b/lib/AnyDBM_File.t
@@ -1,20 +1,11 @@
 #!./perl
 
-# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $
-
-use Test::More;
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
-    if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){
-      plan skip_all => "1..0 # Skipping (no DB_File or [A-Z]DBM_File)\n";
-    }
-    else {
-       plan tests => 12;
-    }
-
+    require Test::More; import Test::More;
+    plan(tests, 12);
 }
 
 require AnyDBM_File;