[ViewVC] Diff of: cvs/App-Staticperl/mkbundle

Comparing App-Staticperl/mkbundle (file contents):
Revision 1.1 by root, Mon Dec 6 19:33:57 2010 UTC vs.
Revision 1.4 by root, Mon Dec 6 21:10:41 2010 UTC

 sub cmd_boot {
    $pm{"//boot"} = $_[0];
 }
 sub cmd_add {
-   $_[0] =~ /^(.*)(?:\s*(\S+))$/
+   $_[0] =~ /^(.*)(?:\s+(\S+))$/
       or die "$_[0]: cannot parse";
    my $file = $1;
    my $as   = defined $2 ? $2 : "/$1";
       or die "$_[0]: $!\n";
    while (<$fh>) {
       chomp;
       my ($cmd, $args) = split / /, $_, 2;
+      $cmd =~ s/^-+//;
       if ($cmd eq "strip") {
          $STRIP = $args;
       } elsif ($cmd eq "eval") {
          trace_eval $_;
 GetOptions
    "strip=s"   => \$STRIP,
    "verbose|v" => sub { ++$VERBOSE },
    "quiet|q"   => sub { --$VERBOSE },
    "perl"      => \$PERL,
-   "eval=s"    => sub { trace_eval   $_[1] },
+   "eval|e=s"  => sub { trace_eval   $_[1] },
    "use|M=s"   => sub { trace_module $_[1] },
    "boot=s"    => sub { cmd_boot     $_[1] },
    "add=s"     => sub { cmd_add      $_[1] },
    "static"    => sub { $STATIC = 1 },
-   "<>"        => sub { cmd_file     $_[1] },
+   "<>"        => sub { cmd_file     $_[0] },
    or exit 1;
 my $data;
 my @index;
 my @order = sort {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines