diff options
Diffstat (limited to 'contrib/perl5/t/lib/tie-push.t')
-rwxr-xr-x | contrib/perl5/t/lib/tie-push.t | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/contrib/perl5/t/lib/tie-push.t b/contrib/perl5/t/lib/tie-push.t deleted file mode 100755 index 23a0a9403a4f5..0000000000000 --- a/contrib/perl5/t/lib/tie-push.t +++ /dev/null @@ -1,24 +0,0 @@ -#!./perl - -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; -} - -{ - package Basic; - use Tie::Array; - @ISA = qw(Tie::Array); - - sub TIEARRAY { return bless [], shift } - sub FETCH { $_[0]->[$_[1]] } - sub STORE { $_[0]->[$_[1]] = $_[2] } - sub FETCHSIZE { scalar(@{$_[0]}) } - sub STORESIZE { $#{$_[0]} = $_[1]-1 } -} - -tie @x,Basic; -tie @get,Basic; -tie @got,Basic; -tie @tests,Basic; -require "op/push.t" |