--- cvsroot/App-Staticperl/mkbundle	2011/02/10 11:46:02	1.21
+++ 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;
@@ -278,8 +278,6 @@
    my $file = $1;
    my $as   = defined $2 ? $2 : "&$1";
 
-   warn "<$file,$as>\n";#d#
-
    $pm{$as} = $file;
    $pmbin{$as} = 1 if $_[1];
 }