?? 4lint
字號:
Check lint__END__-W# lint: check compile time $^W is zappedBEGIN { $^W = 0 ;}$a = $b = 1 ;$a = 1 if $a EQ $b ;close STDIN ; print STDIN "abc" ;EXPECTUse of EQ is deprecated at - line 5.print() on closed filehandle STDIN at - line 6.########-W$^W = 0 ;close STDIN ; print STDIN "abc" ;EXPECTprint() on closed filehandle STDIN at - line 4.########-W# lint: check runtime $^W is zapped{ $^W = 0 ; close STDIN ; print STDIN "abc" ;}EXPECTprint() on closed filehandle STDIN at - line 5.########-W# lint: check "no warnings" is zappedno warnings ;$a = $b = 1 ;$a = 1 if $a EQ $b ;close STDIN ; print STDIN "abc" ;EXPECTUse of EQ is deprecated at - line 5.print() on closed filehandle STDIN at - line 6.########-W# lint: check "no warnings" is zapped{ no warnings ; close STDIN ; print STDIN "abc" ;}EXPECTprint() on closed filehandle STDIN at - line 5.########-Ww# lint: check combination of -w and -W{ $^W = 0 ; close STDIN ; print STDIN "abc" ;}EXPECTprint() on closed filehandle STDIN at - line 5.########-W--FILE-- abc.pmno warnings 'deprecated' ;my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- no warnings 'uninitialized' ;use abc;my $a ; chop $a ;EXPECTUse of EQ is deprecated at abc.pm line 3.Use of uninitialized value in scalar chop at - line 3.########-W--FILE-- abcno warnings 'deprecated' ;my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- no warnings 'uninitialized' ;require "./abc";my $a ; chop $a ;EXPECTUse of EQ is deprecated at ./abc line 3.Use of uninitialized value in scalar chop at - line 3.########-W--FILE-- abc.pmBEGIN {$^W = 0}my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- $^W = 0 ;use abc;my $a ; chop $a ;EXPECTUse of EQ is deprecated at abc.pm line 3.Use of uninitialized value in scalar chop at - line 3.########-W--FILE-- abcBEGIN {$^W = 0}my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- $^W = 0 ;require "./abc";my $a ; chop $a ;EXPECTUse of EQ is deprecated at ./abc line 3.Use of uninitialized value in scalar chop at - line 3.########-W# Check scope of pragma with eval{ no warnings ; eval ' my $b ; chop $b ; '; print STDERR $@ ; my $b ; chop $b ;}EXPECTUse of uninitialized value in scalar chop at (eval 1) line 2.Use of uninitialized value in scalar chop at - line 8.########-W# Check scope of pragma with evaluse warnings;{ no warnings ; eval q[ use warnings 'uninitialized' ; my $b ; chop $b ; ]; print STDERR $@; my $b ; chop $b ;}EXPECTUse of uninitialized value in scalar chop at (eval 1) line 3.Use of uninitialized value in scalar chop at - line 10.########-W# Check scope of pragma with evalno warnings;{ use warnings 'uninitialized' ; eval ' my $b ; chop $b ; '; print STDERR $@ ; my $b ; chop $b ;}EXPECTUse of uninitialized value in scalar chop at (eval 1) line 2.Use of uninitialized value in scalar chop at - line 9.########-W# Check scope of pragma with evalno warnings;{ use warnings 'uninitialized' ; eval ' no warnings ; my $b ; chop $b ; '; print STDERR $@ ; my $b ; chop $b ;}EXPECTUse of uninitialized value in scalar chop at (eval 1) line 3.Use of uninitialized value in scalar chop at - line 10.########-W# Check scope of pragma with evaluse warnings;{ my $a = "1"; my $b = "2"; no warnings ; eval q[ use warnings 'deprecated' ; 1 if $a EQ $b ; ]; print STDERR $@; 1 if $a EQ $b ;}EXPECTUse of EQ is deprecated at - line 11.Use of EQ is deprecated at (eval 1) line 3.########-W# Check scope of pragma with evalno warnings;{ my $a = "1"; my $b = "2"; use warnings 'deprecated' ; eval ' 1 if $a EQ $b ; '; print STDERR $@; 1 if $a EQ $b ;}EXPECTUse of EQ is deprecated at - line 10.Use of EQ is deprecated at (eval 1) line 2.########-W# Check scope of pragma with evalno warnings;{ my $a = "1"; my $b = "2"; use warnings 'deprecated' ; eval ' no warnings ; 1 if $a EQ $b ; '; print STDERR $@; 1 if $a EQ $b ;}EXPECTUse of EQ is deprecated at - line 11.Use of EQ is deprecated at (eval 1) line 3.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -