On Wed, Nov 16, 2011 at 6:27 PM, Nikolay Mishin <[email protected]> wrote: > Спасибо Денис, но спасение, видимо, вот в чем: > > perl -e ' > use warnings; > my ( $a, $b, $c ); > if ( ( defined $a ) and ( defined $b ) ) { > my $c = $a . $b; > } > if ( defined $c ) { > print $c; > } > '
А без uninitialized этот код бы выглядел:
my ($a, $b, $c);
{ my $c = $a.$b; }
print $c;
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
