Bug#707909: missing ";" causes spurious '"my" variable masks earlier declaration in same statement'

[jidanni at jidanni.org]

Package: perl
Version: 5.14.2-20
Severity: wishlist

$ perl -c e.pl
"my" variable $NPx masks earlier declaration in same statement at e.pl line 11.
$ cat e.pl
use strict;
use warnings FATAL => 'all';
my $t="y";
my $df="z";
die unless open( my $NP, ">$t" );
die unless print $NP 33;
die unless close $NP;
my $o=qx{env - LC_CTYPE=zh_TW.UTF-8 w3m -dump $t 2>&1}
#MISSING ";" above causes spurious '"my" variable masks earlier declaration in same statement"
die unless open( my $NPx, ">$df" );
die unless print $NPx $o;
die unless close $NPx;