New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Scalar::Util::refaddr falsely returns false #7279
Comments
From @muirCreated by @muirI ran into a bug that refaddr($x{$y}) is false but Very odd. I haven't investigated beyond making a little -Dave #!/home/bin/perl use Scalar::Util qw(refaddr reftype); { use Scalar::Util qw(refaddr reftype blessed); sub TIEHASH 1; Perl Info
|
From @mhxOn 2004-05-06, at 20:32:18 -0000, David Muir Sharnoff (via RT) wrote:
Thanks for your report. This has been fixed by the change below. Marcus Change 22798 by mhx@mhx-r2d2 on 2004/05/07 11:42:37 [perl #29395] Scalar::Util::refaddr falsely returns false Affected files ... ... //depot/perl/ext/List/Util/Util.xs#24 edit Differences ... ==== //depot/perl/ext/List/Util/Util.xs#24 (text) ==== @@ -411,6 +411,8 @@ ==== //depot/perl/ext/List/Util/lib/List/Util.pm#18 (text) ==== @@ -10,7 +10,7 @@ @ISA = qw(Exporter); ==== //depot/perl/ext/List/Util/lib/Scalar/Util.pm#14 (text) ==== @@ -11,7 +11,7 @@ @ISA = qw(Exporter); sub export_fail { # checks from perlfaq4 ==== //depot/perl/ext/List/Util/t/refaddr.t#2 (xtext) ==== @@ -21,7 +21,7 @@ -print "1..13\n"; my $i = 1; +{ use overload '0+' => sub { 10 }, |
The RT System itself - Status changed from 'new' to 'open' |
@mhx - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#29395 (status was 'resolved')
Searchable as RT29395$
The text was updated successfully, but these errors were encountered: