| … | … | ||
|---|---|---|---|
| 274 | sub cmd_add { | 274 | sub cmd_add { |
| 275 | $_[0] =~ /^(.*?)(?:\s+(\S+))?$/ | 275 | $_[0] =~ /^(.*?)(?:\s+(\S+))?$/ |
| 276 | or die "$_[0]: cannot parse"; | 276 | or die "$_[0]: cannot parse"; |
| 277 | 277 | ||
| 278 | my $file = $1; | 278 | my $file = $1; |
| 279 | my $as = defined $2 ? $2 : "&$1"; | 279 | my $as = defined $2 ? $2 : $1; |
| 280 | 280 | ||
| 281 | $pm{$as} = $file; | 281 | $pm{$as} = $file; |
| 282 | $pmbin{$as} = 1 if $_[1]; | 282 | $pmbin{$as} = 1 if $_[1]; |
| 283 | } | 283 | } |
| 284 | 284 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |