From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 25 Jul 2008 00:13:25 +0000 (+0000)
Subject: more tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18ca8b57ff86a91709ee98eb7bfc47851d86f529;p=dbsrgits%2FSQL-Abstract.git

more tweaks
---

diff --git a/e.pl b/e.pl
index be16d97..e429647 100644
--- a/e.pl
+++ b/e.pl
@@ -66,9 +66,12 @@ sub _aliasify {
 
 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) = @_;