Bug #31039 for Scalar-Defer: "Use of uninitialized value in subroutine dereference"

Wed Nov 28 12:07:20 2007 siracusa [...] gmail.com - Ticket created

Scalar::Defer 0.11 breaks Rose::HTML::Objects 0.550. The following patch fixes it, though I'm not sure if it's universally valid. --- lib/Scalar/Defer.pm 2007-11-28 12:03:20.000000000 -0500 +++ lib/Scalar/Defer.pm~ 2007-11-25 14:30:00.000000000 -0500 @@ -89,7 +89,7 @@ no strict 'refs'; no warnings 'redefine'; - foreach my $sym (grep { $_ ne 'AUTOLOAD' } keys %UNIVERSAL::) { + foreach my $sym (keys %UNIVERSAL::) { *{$sym} = sub { unshift @_, Scalar::Defer::SUB_FORCE()->(shift(@_)); goto &{$_[0]->can($sym)};

Wed Nov 28 13:05:59 2007 siracusa [...] gmail.com - Correspondence added

Here's a more generic patch: --- lib/Scalar/Defer.pm.old 2007-11-25 14:30:00.000000000 -0500 +++ lib/Scalar/Defer.pm 2007-11-28 13:04:13.000000000 -0500 @@ -90,9 +90,16 @@ no warnings 'redefine'; foreach my $sym (keys %UNIVERSAL::) { + my $original_code = \&{$sym}; *{$sym} = sub { unshift @_, Scalar::Defer::SUB_FORCE()->(shift(@_)); - goto &{$_[0]->can($sym)}; + + if(my $code = $_[0]->can($sym)) { + goto &$code; + } + else { + &$original_code; + } }; }

Wed Nov 28 13:06:24 2007 siracusa [...] gmail.com - Status changed from 'new' to 'open'

Wed Nov 28 13:12:10 2007 siracusa [...] gmail.com - Correspondence added

Okay, third time's the charm (forgot a goto in the last patch): --- lib/Scalar/Defer.pm.old 2007-11-25 14:30:00.000000000 -0500 +++ lib/Scalar/Defer.pm 2007-11-28 13:09:53.000000000 -0500 @@ -90,9 +90,16 @@ no warnings 'redefine'; foreach my $sym (keys %UNIVERSAL::) { + my $original_code = \&{$sym}; *{$sym} = sub { unshift @_, Scalar::Defer::SUB_FORCE()->(shift(@_)); - goto &{$_[0]->can($sym)}; + + if(my $code = $_[0]->can($sym)) { + goto &$code; + } + else { + goto &$original_code; + } }; }

Thu Dec 06 10:40:01 2007 siracusa [...] gmail.com - Subject changed from (no value) to '"Use of uninitialized value in subroutine dereference"'