pjf: dual life modules

[p5sagit/p5-mst-13.2.git] / lib / autodie / t / context_lexical.t

diff --git a/lib/autodie/t/context_lexical.t b/lib/autodie/t/context_lexical.t
old mode 100644 (file)
new mode 100755 (executable)
index eeb1a54..ce50b75
--- a/lib/autodie/t/context_lexical.t
+++ b/lib/autodie/t/context_lexical.t
@@ -9,9 +9,13 @@ plan 'no_plan';
 # undef if given a list of a single undef.  This mimics the
 # behaviour of many user-defined subs and built-ins (eg: open) that
 # always return undef regardless of context.
+#
+# We also do an 'empty return' if no arguments are passed.  This
+# mimics the PBP guideline for returning nothing.
 
 sub list_mirror {
     return undef if (@_ == 1 and not defined $_[0]);
+    return if not @_;
     return @_;
 
 }