#!perl -l

sub test_c { $x=2; return 1 if 0;     }
sub test_v { $x=2; return 1 if $_[0]; }

print test_c();
print test_v(0);

##</code><code>##

0
0