(Retracted by #10867.)
Jarkko Hietaniemi [Sat, 23 Jun 2001 15:01:02 +0000 (15:01 +0000)]
p4raw-id: //depot/perl@10865

lib/Memoize/t/tie_ndbm.t

index dfbd0f5..876351c 100644 (file)
@@ -1,6 +1,15 @@
 #!/usr/bin/perl
 
 use lib qw(. ..);
+
+BEGIN {
+    use Config;
+    unless ($Config{extensions} =~ /\bNDBM_File\b/) {
+       print "1..0 # Skip: no NDBM_File\n";
+        exit(0);
+    }
+}
+
 use Memoize 0.45 qw(memoize unmemoize);
 use Fcntl;
 # use Memoize::NDBM_File;