diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-08-02 15:40:16 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-03 18:44:29 +0000 |
| commit | 20bb3f55e73254cd65990282983e87860e6ebfab (patch) | |
| tree | ede61d87544105a5f260eac898f2973b08fff3a3 /ext/Storable/t | |
| parent | 4c8433661f9886ea9928ada6c218e87bb90d6b78 (diff) | |
| download | perl-20bb3f55e73254cd65990282983e87860e6ebfab.tar.gz | |
Storable and uninitalized array values
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <00ab01c358ea$d940a5b0$0c2f1fac@R2D2>
p4raw-id: //depot/perl@20453
Diffstat (limited to 'ext/Storable/t')
| -rw-r--r-- | ext/Storable/t/freeze.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ext/Storable/t/freeze.t b/ext/Storable/t/freeze.t index de13af6822..bf557df67c 100644 --- a/ext/Storable/t/freeze.t +++ b/ext/Storable/t/freeze.t @@ -24,7 +24,7 @@ sub BEGIN { use Storable qw(freeze nfreeze thaw); -print "1..19\n"; +print "1..20\n"; $a = 'toto'; $b = \$a; @@ -136,3 +136,9 @@ ok 18, !$@; thaw $frozen; # used to segfault here ok 19, 1; + +$a = []; $#$a = 2; $a->[1] = undef; +$b = thaw freeze $a; +@a = map { ~~ exists $a->[$_] } 0 .. $#$a; +@b = map { ~~ exists $b->[$_] } 0 .. $#$b; +ok 20, "@a" eq "@b"; |