[Bast-commits] r4618 - SQL-Abstract/1.x/branches/cleanup

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-07-25 01:13:25 +0100 (Fri, 25 Jul 2008)
New Revision: 4618

Modified:
   SQL-Abstract/1.x/branches/cleanup/e.pl
Log:
more tweaks

Modified: SQL-Abstract/1.x/branches/cleanup/e.pl
===================================================================
--- SQL-Abstract/1.x/branches/cleanup/e.pl	2008-07-25 00:07:45 UTC (rev 4617)
+++ SQL-Abstract/1.x/branches/cleanup/e.pl	2008-07-25 00:13:25 UTC (rev 4618)
@@ -66,9 +66,12 @@
 
 sub expr (&) { _run_e(@_) }
 sub _do {
-  my ($name, $code, @in) = @_;
-  warn "eek: ${\dump @in}" if @in > 1;
-  [ $name, _run_e($code), @in ];
+  return [ @_ ] unless @_ > 2; # FOO { ... }<nothing or ,>
+  my $name = shift;
+  my $code = shift;
+  my $ret = [ $name, _run_e($code), shift ];
+  return $ret unless @_;
+  die "WHUT";
 }
 sub _dolist {
   my ($name, $code, @in) = @_;