This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rewrite -l warning test to account for 433644eed
authorFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 06:31:52 +0000 (23:31 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:01:21 +0000 (13:01 -0700)
t/lib/warnings/doio

index 338fc02..732f66d 100644 (file)
@@ -168,14 +168,11 @@ Use of -l on filehandle STDIN at - line 3.
 use utf8;
 use open qw( :utf8 :std );
 use warnings 'io';
--l $ᶠᚻ;
-open $ᶠᚻ, $0 or die "# $!";
--l $ᶠᚻ;
+-l ᶠᚻ;
 no warnings 'io';
--l $ᶠᚻ;
-close $ᶠᚻ;
+-l ᶠᚻ;
 EXPECT
-Use of -l on filehandle $ᶠᚻ at - line 7.
+Use of -l on filehandle ᶠᚻ at - line 5.
 ########
 # doio.c [Perl_do_aexec5]
 use warnings 'io' ;