diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 11:09:05 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 11:09:05 +0000 |
| commit | d3a7d8c7d7e4d69d7d81e4e3e900ec57f07ca07c (patch) | |
| tree | 46e26336d8cdf0e9f503f5650660a4aafcc09411 /lib/Tie/Scalar.pm | |
| parent | d16e9ed98812a2e69b435f9514ff8e38e7ff38ad (diff) | |
| download | perl-d3a7d8c7d7e4d69d7d81e4e3e900ec57f07ca07c.tar.gz | |
final touches for lexical warnings (from Paul Marquess)
p4raw-id: //depot/perl@5702
Diffstat (limited to 'lib/Tie/Scalar.pm')
| -rw-r--r-- | lib/Tie/Scalar.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm index 1e2caee379..0c6759006f 100644 --- a/lib/Tie/Scalar.pm +++ b/lib/Tie/Scalar.pm @@ -79,6 +79,7 @@ process IDs with priority. =cut use Carp; +use warnings::register; sub new { my $pkg = shift; @@ -90,8 +91,8 @@ sub new { sub TIESCALAR { my $pkg = shift; if (defined &{"{$pkg}::new"}) { - carp "WARNING: calling ${pkg}->new since ${pkg}->TIESCALAR is missing" - if $^W; + warnings::warn "WARNING: calling ${pkg}->new since ${pkg}->TIESCALAR is missing" + if warnings::enabled(); $pkg->new(@_); } else { |