K
Ken Sington
uninitialized? Isn't it already?
#!/usr/bin/perl -T
use warnings;
use strict;
my $a=1;
unless ($a eq undef|| $a eq 0){
print "\$a = $a\n";
}
print "END\n";
========output=====================
Use of uninitialized value in string eq at ./test.pl line 8.
$a = 1
END
===============================
it's the undef!
but why?
#!/usr/bin/perl -T
use warnings;
use strict;
my $a=1;
unless ($a eq undef|| $a eq 0){
print "\$a = $a\n";
}
print "END\n";
========output=====================
Use of uninitialized value in string eq at ./test.pl line 8.
$a = 1
END
===============================
it's the undef!
but why?