1N/A# Copyright (c) 1995-2000, Raphael Manfredi 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#$hash{'attribute'} = \$d; 1N/A#$array[1] = \$scalar; 1N/A### $hash{'attribute'} = $d; 1N/A### below, then dump() incorectly dumps the hash value as a string the second 1N/A### time it is reached. I have not investigated enough to tell whether it's 1N/A### a bug in my dump() routine or in the Perl tieing mechanism. 1N/A%a =
('key', 'value', 1, 0, $a, $b, 'cvar', \$a, 'scalarref', \$scalar);
1N/A@a =
('first', 3, -4, -3.14159, 456, 4.5, $d, \$d, 1N/A### Used to see the manifestation of the bug documented above. 1N/A### print "original: $dumped"; 1N/A### print "--------\n"; 1N/A### print "got: $got"; 1N/A### print "--------\n"; 1N/A# Ensure the tied items in the retrieved image work 1N/Afor ($i = 0; $i < @new; $i++) { 1N/A printf "ok %d\n", 10 + 2*$i; # Tests 10,12,14 1N/A printf "ok %d\n", 11 + 2*$i; # Tests 11,13,15 1N/Atie $h->{
'x'},
'FAULT', $h,
'x';
1N/A print $b , 23, "\n";