Detypo.

[perl5.git] / lib / Tie / Scalar.pm

diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm
index 0c67590..c23c121 100644 (file)
--- a/lib/Tie/Scalar.pm
+++ b/lib/Tie/Scalar.pm
@@ -1,5 +1,7 @@
 package Tie::Scalar;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars
@@ -45,7 +47,7 @@ For developers wishing to write their own tied-scalar classes, the methods
 are summarized below. The L<perltie> section not only documents these, but
 has sample code as well:
 
-=over
+=over 4
 
 =item TIESCALAR classname, LIST
 
@@ -90,9 +92,8 @@ sub new {
 
 sub TIESCALAR {
     my $pkg = shift;
-    if (defined &{"{$pkg}::new"}) {
-       warnings::warn "WARNING: calling ${pkg}->new since ${pkg}->TIESCALAR is missing"
-           if warnings::enabled();
+       if ($pkg->can('new') and $pkg ne __PACKAGE__) {
+       warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIESCALAR is missing");
        $pkg->new(@_);
     }
     else {