| version 1.12 | version 1.13 | |||
|---|---|---|---|---|
|
| |||
| open(ARC,$arch) || &die("cannot open ".$arch); | open(ARC,$arch) || &die("cannot open ".$arch); | |||
| $pathto = $arch; | $pathto = $arch; | |||
| $pathto =~ s@[^/]*/@@; | $pathto =~ s@[^/]*/@@; | |||
| $pathto =~ s@(.*)/.*arc@$1@; | $pathto =~ s@[a-z]*/(.*)/.*arc@$1@; | |||
| line: while(<ARC>) { | line: while(<ARC>) { | |||
| chop; | chop; | |||
| ($var,@values) = split; | ($var,@values) = split; |
Legend:
| ||||||