Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Unicode-Tussle CPAN distribution.

Report information
The Basics
Id: 89665
Status: resolved
Priority: 0/
Queue: Unicode-Tussle

People
Owner: Nobody in particular
Requestors: ether [...] cpan.org
tsibley [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 1.04
Fixed in: (no value)



Subject: "Use of my $_ is experimental" in uniprops executable
Under version 1.04, and perl 5.19.4: $; uniprops U+00A0 Use of my $_ is experimental at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 189. Use of my $_ is experimental at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 243. Use of my $_ is experimental at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 452. Use of my $_ is experimental at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 590. Use of my $_ is experimental at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 649. Use of my $_ is experimental at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 676. U+00A0 ‹U+00A0› \N{NO-BREAK SPACE} \s \h \pZ \p{Zs} Untrapped fatal exception: CODE ERR at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 578. at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 137. main::__ANON__("CODE ERR at /Users/ether/.perlbrew/libs/19.4\@std/bin/uniprops"...) called at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 578 main::uniprops("\x{a0}") called at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 410 main::uprops_chr("\x{a0}") called at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 381 main::uprops_cp(160) called at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 198 main::main() called at /Users/ether/.perlbrew/libs/19.4@std/bin/uniprops line 116 This looks like it might be related to RT#85988.
This is also an issue under 5.18.
This is also not limited to uniprops: trsibley@mullion-13 Unicode-Tussle (master=) $ git ack 'my\s*\$_' script/FixString.pm 66: my $_ = shift(); script/es-sort 27: my $_ = shift; script/nunez 196: my $_ = shift; script/unifmt 72: my $_ = $_[0]; script/unilook 877: my $_; 916: my $_; 956: my $_; 980: my $_ = $entry; 1254: my $_ = $_[0]; script/uniprops 186:ARG: for my $_ (@ARGV) { 240: my $_ = shift(); 264: my $_Format_Line; 449: my $_ = shift(); 544: |Q| my $_ = shift(); 587: my $_ = shift(); 646: my $_; 673: my $_ = <$pod_fh>; script/uniquote 298: my $_ = shift(); 2776: my $_ = $_[0]; 2802: my $_ = $_[0]; 2821: my $_ = shift(); 2883: my $_ = $_[0]; script/unititle 14: my $_ = @_ ? shift() : $_;
I think this is fixed in 1.05. I changed everything to local. In most cases, it's clear that isn't a problem because the $_ stays in the lexical scope. A few cases call subroutines, so those need to do the right thing with any changes to $_. Thanks,