churib · December 31, 2015 00:38
diff --git a/gistfile1.pl b/gistfile1.pl
 #!/usr/bin/env perl

 use strict;
 use warnings;

 for ( 1 .. 2 ) {
    my $var = 0 if 0;
    $var++;    # no warning/error?
    print "$var\n";
 }

 __END__

 output:
 1
 2
	#!/usr/bin/env perl

	use strict;
	use warnings;

	for ( 1 .. 2 ) {
	my $var = 0 if 0;
	$var++; # no warning/error?
	print "$var\n";
	}

	__END__

	output:
	1
	2