sub a3 :lvalue {@a} sub b2 : lvalue {@b} sub c4: lvalue {@c}

$_ = '';

eval <<'EOE' or $_ = $@; ($x, a3, $y, b2, $z, c4, $t) = (34 .. 78); 1; EOE

#@out = ($x, a3, $y, b2, $z, c4, $t); #@in = (34 .. 41, (undef) x 4, 46); #print "# `@out' ne `@in'\nnot " unless "@out" eq "@in";

print "# '$_'.\nnot " unless /Can\'t return an uninitialized value from lvalue subroutine/;