| … | … | ||
|---|---|---|---|
| 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 | |||
| 281 | warn "<$file,$as>\n";#d# | ||
| 282 | 280 | ||
| 283 | $pm{$as} = $file; | 281 | $pm{$as} = $file; |
| 284 | $pmbin{$as} = 1 if $_[1]; | 282 | $pmbin{$as} = 1 if $_[1]; |
| 285 | } | 283 | } |
| 286 | 284 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |