diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 1999-05-27 12:05:44 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-28 16:53:04 +0000 |
| commit | 697943021785eb8447e25eb51a6f27fd78921863 (patch) | |
| tree | ff410b34951b3231735fd69c7969267fe684fde3 /lib | |
| parent | d6a255e6be67358d1e8a71b939edbfc895ee4fa6 (diff) | |
| download | perl-697943021785eb8447e25eb51a6f27fd78921863.tar.gz | |
PATCH (5.005_57): defined(@a) now deprecated
To: perl5-porters@perl.com
Message-ID: <19990527200544.13330.qmail@plover.com>
p4raw-id: //depot/cfgperl@3498
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Carp.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Carp.pm b/lib/Carp.pm index f8f750a5d7..5fb8809900 100644 --- a/lib/Carp.pm +++ b/lib/Carp.pm @@ -215,7 +215,7 @@ sub shortmess { # Short-circuit &longmess if called via multiple packages # merge all the caller's @ISA packages into %isa. @isa{@{"${prevpack}::ISA"}} = () - if(defined @{"${prevpack}::ISA"}); + if(@{"${prevpack}::ISA"}); # now we crawl up the calling stack and look at all the packages in # there. For each package, we look to see if it has an @ISA and then @@ -223,7 +223,7 @@ sub shortmess { # Short-circuit &longmess if called via multiple packages # our caller is a derived class of that package and its calls can also # be ignored while (($pack,$file,$line) = caller($i++)) { - if(defined @{$pack . "::ISA"}) { + if(@{$pack . "::ISA"}) { my @i = @{$pack . "::ISA"}; my %i; @i{@i} = (); @@ -247,7 +247,7 @@ sub shortmess { # Short-circuit &longmess if called via multiple packages if ($extra-- > 0) { %isa = ($pack,1); @isa{@{$pack . "::ISA"}} = () - if(defined @{$pack . "::ISA"}); + if(@{$pack . "::ISA"}); } else { # OK! We've got a candidate package. Time to construct the |