--- cvsroot/App-Staticperl/mkbundle	2011/02/10 09:30:56	1.20
+++ cvsroot/App-Staticperl/mkbundle	2011/02/10 12:02:09	1.23
@@ -85,7 +85,7 @@
          if (/use (.*)$/) {
             my $mod = $1;
             my $pkg = ++$pkg;
-            my $eval = $mod = $mod =~ /[^A-Za-z0-9_:]/
+            my $eval = $mod =~ /[^A-Za-z0-9_:]/
                        ? "require $mod"
                        : "{ package $pkg; use $mod; }";
             eval $eval;
@@ -272,7 +272,7 @@
 }
 
 sub cmd_add {
-   $_[0] =~ /^(.*)(?:\s+(\S+))?$/
+   $_[0] =~ /^(.*?)(?:\s+(\S+))?$/
       or die "$_[0]: cannot parse";
 
    my $file = $1;