no Prototype mismatch warning

[GoogleCodeExporter]

What steps will reproduce the problem?

> perlcc -r -e 'use warnings; my $w = q{}; local $SIG{__WARN__} = sub { $w = 
$_[0] }; sub abc (); *abc = sub { }; print "ok\n" if $w =~ qr/Prototype 
mismatch/;'

What is the expected output? What do you see instead?

> perl -e 'use warnings; my $w = q{}; local $SIG{__WARN__} = sub { $w = $_[0] 
}; sub abc (); *abc = sub { }; print "ok\n" if $w =~ qr/Prototype mismatch/;'
ok

Please use labels and text to provide additional information.

Original issue reported on code.google.com by nicolas....@gmail.com on 24 Jan 2014 at 12:18

• Merged into: #270

[GoogleCodeExporter]

[deleted comment]

[GoogleCodeExporter]

ok technically

Original comment by todd.e.rinaldo on 31 Jan 2014 at 12:08

• Added labels: Priority-Low
• Removed labels: Priority-Medium

[GoogleCodeExporter]

this fails only because the empty subs are not stored

Original comment by reini.urban on 31 Jan 2014 at 6:31

• Changed state: Duplicate

[GoogleCodeExporter]

t/C-COMPILED/CORE--op--gv==SIG-279-280-282.t passes all tests with 1.43_05

Original comment by reini.urban on 31 Jan 2014 at 7:38

[GoogleCodeExporter]

verified fixed

Original comment by nicolas....@gmail.com on 6 Feb 2014 at 8:35