$ cat -n elsif.pl 1 use strict; 2 use warnings; 3 4 our $foo; 5 6 if ($^O eq "23niWSM") { 7 print "bugaboo\n"; 8 } 9 elsif ($foo eq "bar") { 10 print "foobar\n"; 11 } $ perl elsif.pl Use of uninitialized value in string eq at elsif.pl line 6. $ cat -n if.pl 1 use strict; 2 use warnings; 3 4 our $foo; 5 6 if ($^O eq "23niWSM") { 7 print "bugaboo\n"; 8 } 9 if ($foo eq "bar") { 10 print "foobar\n"; 11 } $ perl if.pl Use of uninitialized value in string eq at if.pl line 9. $ diff -u if.pl elsif.pl --- if.pl 2004-07-20 15:00:49.412472000 -0700 +++ elsif.pl 2004-07-20 15:02:28.875492800 -0700 @@ -6,6 +6,6 @@ if ($^O eq "23niWSM") { print "bugaboo\n"; } -if ($foo eq "bar") { +elsif ($foo eq "bar") { print "foobar\n"; }
In reply to Re: brian's Guide to Solving Any Perl Problem
by ysth
in thread brian's Guide to Solving Any Perl Problem
by brian_d_foy
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |