Fix up .gitignore files some more

[p5sagit/p5-mst-13.2.git] / ext / Storable / t / lock.t

diff --git a/ext/Storable/t/lock.t b/ext/Storable/t/lock.t
index 77d73bb..e93cef4 100644 (file)
--- a/ext/Storable/t/lock.t
+++ b/ext/Storable/t/lock.t
@@ -1,35 +1,25 @@
 #!./perl
-
-# $Id: lock.t,v 1.0.1.4 2001/01/03 09:41:00 ram Exp $
-#
-#  @COPYRIGHT@
-#
-# $Log: lock.t,v $
-# Revision 1.0.1.4  2001/01/03 09:41:00  ram
-# patch7: use new CAN_FLOCK routine to determine whether to run tests
-#
-# Revision 1.0.1.3  2000/10/26 17:11:27  ram
-# patch5: just check $^O, there's no need for the whole Config
-#
-# Revision 1.0.1.2  2000/10/23 18:03:07  ram
-# patch4: protected calls to flock() for dos platform
-#
-# Revision 1.0.1.1  2000/09/28 21:44:06  ram
-# patch2: created.
 #
+#  Copyright (c) 1995-2000, Raphael Manfredi
+#  
+#  You may redistribute only under the same terms as Perl 5, as specified
+#  in the README file that comes with the distribution.
 #
 
 sub BEGIN {
-    chdir('t') if -d 't';
-    @INC = '.'; 
-    push @INC, '../lib';
+    if ($ENV{PERL_CORE}){
+       chdir('t') if -d 't';
+       @INC = ('.', '../lib', '../ext/Storable/t');
+    } else {
+       unshift @INC, 't';
+    }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bStorable\b/) {
+    if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
         exit 0;
     }
 
-    require 'lib/st-dump.pl';
+    require 'st-dump.pl';
 }
 
 sub ok;