sub foo {
  return;
}

@ret = foo();
die "Not a Bug\n" unless @ret;
print "Doh...shouldn't get here!\n"
[download]

Results:

Not a Bug
[download]

Excellent! Thanks chromatic !

I still find it curious that he calls the exists function in list context. I can't imagine I'm the only one who has been bitten by this.

From the return perldoc for those too lazy to look it up themselves:

return EXPR
.......snip.......
If no EXPR is given, returns an empty list in list context,
the undefined value in scalar context, and (of course)
nothing at all in a void context.
[download]