Hash::Util tests should check if Hash::Util has been built, not
Steve Peters [Tue, 14 Feb 2006 17:41:02 +0000 (17:41 +0000)]
List::Util (spotted by Rafael).

p4raw-id: //depot/perl@27181

ext/Hash/Util/t/Util.t

index df7e2df..c8b36ee 100644 (file)
@@ -6,21 +6,13 @@ BEGIN {
        @INC = '../lib';
        require Config; import Config;
        keys %Config; # Silence warning
-       if ($Config{extensions} !~ /\bList\/Util\b/) {
-           print "1..0 # Skip: List::Util was not built\n";
+       if ($Config{extensions} !~ /\bHash\/Util\b/) {
+           print "1..0 # Skip: Hash::Util was not built\n";
            exit 0;
        }
     }
 }
 
-#BEGIN {
-#    if( $ENV{PERL_CORE} ) {
-#        @INC = '../lib';
-#        chdir 't';
-#    }
-#}
-
-
 use strict;
 use Test::More;
 my @Exported_Funcs;