1N/A# Copyright 2002, Larry Wall. 1N/A# You may redistribute only under the same terms as Perl 5, as specified 1N/A# in the README file that comes with the distribution. 1N/A chdir('t') if -d 't'; 1N/A print "1..0 # Skip: Storable was not built\n"; 1N/A print "1..0 # Skip: No Hash::Util pre 5.005\n"; 1N/A # And doing this seems on 5.004 seems to create bogus warnings about 1N/A # unitialized variables, or coredumps in Perl_pp_padsv 1N/A } elsif (!eval "require Hash::Util") { 1N/A print "1..0 # Skip: No Hash::Util:\n"; 1N/A print "# Failed: keys mis-match after deep clone.\n"; 1N/A print "# Original keys: @in_keys\n"; 1N/A print "# Copy's keys: @out_keys\n"; 1N/A # $copy = $hash; # used in initial debug of the tests 1N/A "key 'question' not locked in copy?"; 1N/A "key 'answer' not locked in copy?"; 1N/A ok ++$test, $@, "Can not assign to invalid key 'nono'?"; 1N/A "key 'undef' exists"; 1N/A "value for key 'undef' is undefined"; 1N/A # bless {}, "Restrict_Test";