In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2515a12cf493baaa211da7524a276dd30695ca29?hp=c2f55187ef16be4dba1010cbebfd458007507698>
- Log ----------------------------------------------------------------- commit 2515a12cf493baaa211da7524a276dd30695ca29 Author: Ruud H.G. van Tol <[email protected]> Date: Wed Oct 28 14:04:38 2015 +0000 Fix Tie::StdScalar when $instance exists but isn't a 'true' value Patch received from Ruud H.G. van Tol <[email protected]>. Committer added ++$VERSION and Porting/checkAUTHORS.pl change. ----------------------------------------------------------------------- Summary of changes: Porting/checkAUTHORS.pl | 1 + lib/Tie/Scalar.pm | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index 9b161d2..fe448dd 100755 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -858,6 +858,7 @@ rootbeer\100teleport.com rootbeer\100redcat.com + tomphoenix\100unknown rurban\100x-ray.at rurban\100cpan.org + rurban\100cpanel.net +rvtol+news\100isolution.nl rvtol\100isolution.nl sartak\100bestpractical.com sartak\100gmail.com + code\100sartak.org sadinoff\100olf.com danny-cpan\100sadinoff.com diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm index b56ac9a..50b9701 100644 --- a/lib/Tie/Scalar.pm +++ b/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; } -- Perl5 Master Repository
