use Storable qw(freeze thaw);
-print "1..22\n";
+print "1..23\n";
($scalar_fetch, $array_fetch, $hash_fetch) = (0, 0, 0);
{
package P;
use Storable qw(freeze thaw);
- our ($a,$b);
+ use vars qw($a $b);
$b = "not ok ";
sub TIESCALAR { bless \$a } sub FETCH { "ok " }
tie $a, P; my $r = thaw freeze \$a; $b = $$r;