diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tie/Scalar.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tie/Scalar.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tie/Scalar.pm b/Master/tlpkg/tlperl/lib/Tie/Scalar.pm index b56ac9abd88..50b97018ad1 100644 --- a/Master/tlpkg/tlperl/lib/Tie/Scalar.pm +++ b/Master/tlpkg/tlperl/lib/Tie/Scalar.pm @@ -1,6 +1,6 @@ package Tie::Scalar; -our $VERSION = '1.03'; +our $VERSION = '1.04'; =head1 NAME @@ -145,7 +145,7 @@ package Tie::StdScalar; sub TIESCALAR { my $class = shift; - my $instance = shift || undef; + my $instance = @_ ? shift : undef; return bless \$instance => $class; } |