summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tie/Scalar.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tie/Scalar.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tie/Scalar.pm4
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;
}