diff options
| author | daniel@biz.bitpusher.com <daniel@biz.bitpusher.com> | 2001-07-11 16:25:47 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 13:32:05 +0000 |
| commit | aae9faaef48c83ef5b906434cb0a359c3263c598 (patch) | |
| tree | 4e29b39974460fb9515479a15b374e4dce46c325 /lib/Tie/Array.pm | |
| parent | ae7d165c0b89e5ee4f4efe1fcd0b5806caf58351 (diff) | |
| download | perl-aae9faaef48c83ef5b906434cb0a359c3263c598.tar.gz | |
[ID 20010711.005] in Tie::Array, SPLICE ignores context, breaking SHIFT
Message-Id: <200107120625.f6C6PkJ13065@biz.bitpusher.com>
p4raw-id: //depot/perl@11306
Diffstat (limited to 'lib/Tie/Array.pm')
| -rw-r--r-- | lib/Tie/Array.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm index 8821783cfa..7703c13d9a 100644 --- a/lib/Tie/Array.pm +++ b/lib/Tie/Array.pm @@ -11,7 +11,6 @@ sub DESTROY { } sub EXTEND { } sub UNSHIFT { scalar shift->SPLICE(0,0,@_) } sub SHIFT { shift->SPLICE(0,1) } -#sub SHIFT { (shift->SPLICE(0,1))[0] } sub CLEAR { shift->STORESIZE(0) } sub PUSH @@ -70,7 +69,7 @@ sub SPLICE { for (my $i=0; $i < @_; $i++) { $obj->STORE($off+$i,$_[$i]); } - return @result; + return wantarray ? @result : pop @result; } sub EXISTS { |