diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-09-29 17:39:26 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-09-29 17:39:26 +0000 |
| commit | bb407f0b8769c638c05e60ebfd157a1e676a6c22 (patch) | |
| tree | 3998c4ab5a5846e6c7b7da02d7491365cee64497 /lib/Tie/Scalar.pm | |
| parent | 2d9c413a592b92ced9120b7198068f75580fdca9 (diff) | |
| parent | 2d6b165414a36b2f7babc9ffdf83d659589dd9eb (diff) | |
| download | perl-bb407f0b8769c638c05e60ebfd157a1e676a6c22.tar.gz | |
Integrate mainline. Builds lots of sv.h/embed.h redef warnings
one test (lib/open.t) fails
p4raw-id: //depot/perlio@12268
Diffstat (limited to 'lib/Tie/Scalar.pm')
| -rw-r--r-- | lib/Tie/Scalar.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm index bcaad0b11e..c23c12187a 100644 --- a/lib/Tie/Scalar.pm +++ b/lib/Tie/Scalar.pm @@ -92,7 +92,7 @@ sub new { sub TIESCALAR { my $pkg = shift; - if (defined &{"{$pkg}::new"}) { + if ($pkg->can('new') and $pkg ne __PACKAGE__) { warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIESCALAR is missing"); $pkg->new(@_); } |