| … | |
… | |
| 187 | or die "$_[0]: $!\n"; |
187 | or die "$_[0]: $!\n"; |
| 188 | |
188 | |
| 189 | while (<$fh>) { |
189 | while (<$fh>) { |
| 190 | chomp; |
190 | chomp; |
| 191 | my ($cmd, $args) = split / /, $_, 2; |
191 | my ($cmd, $args) = split / /, $_, 2; |
|
|
192 | $cmd =~ s/^-+//; |
| 192 | |
193 | |
| 193 | if ($cmd eq "strip") { |
194 | if ($cmd eq "strip") { |
| 194 | $STRIP = $args; |
195 | $STRIP = $args; |
| 195 | } elsif ($cmd eq "eval") { |
196 | } elsif ($cmd eq "eval") { |
| 196 | trace_eval $_; |
197 | trace_eval $_; |
| … | |
… | |
| 218 | GetOptions |
219 | GetOptions |
| 219 | "strip=s" => \$STRIP, |
220 | "strip=s" => \$STRIP, |
| 220 | "verbose|v" => sub { ++$VERBOSE }, |
221 | "verbose|v" => sub { ++$VERBOSE }, |
| 221 | "quiet|q" => sub { --$VERBOSE }, |
222 | "quiet|q" => sub { --$VERBOSE }, |
| 222 | "perl" => \$PERL, |
223 | "perl" => \$PERL, |
| 223 | "eval=s" => sub { trace_eval $_[1] }, |
224 | "eval|e=s" => sub { trace_eval $_[1] }, |
| 224 | "use|M=s" => sub { trace_module $_[1] }, |
225 | "use|M=s" => sub { trace_module $_[1] }, |
| 225 | "boot=s" => sub { cmd_boot $_[1] }, |
226 | "boot=s" => sub { cmd_boot $_[1] }, |
| 226 | "add=s" => sub { cmd_add $_[1] }, |
227 | "add=s" => sub { cmd_add $_[1] }, |
| 227 | "static" => sub { $STATIC = 1 }, |
228 | "static" => sub { $STATIC = 1 }, |
| 228 | "<>" => sub { cmd_file $_[1] }, |
229 | "<>" => sub { cmd_file $_[1] }, |
