Date: | 2012-05-24 05:21:36 (11 years 10 months ago) |
---|---|
Author: | Werner Almesberger |
Commit: | e943baf1c3da4ca30d0a6c2bde5cb0605576373e |
Message: | schhist/sanitize-{profile,schem}: "dirname" logic was
reversed The substitution acted as "basename" instead of "dirname". |
Files: |
schhist/sanitize-profile (1 diff) schhist/sanitize-schem (1 diff) |
Change Details
schhist/sanitize-profile | ||
---|---|---|
68 | 68 | ($file, $out) = @ARGV; |
69 | 69 | &usage if $#ARGV > 1; |
70 | 70 | |
71 | ($dir = $file) =~ s|.*/||; | |
71 | ($dir = $file) =~ s|[^/]*$||; | |
72 | 72 | $dir = "." if $dir eq ""; |
73 | 73 | |
74 | 74 | open(FILE, $file) || die "$file: $!"; |
schhist/sanitize-schem | ||
---|---|---|
22 | 22 | ($file, $out) = @ARGV; |
23 | 23 | &usage if $#ARGV > 1; |
24 | 24 | |
25 | ($dir = $file) =~ s|.*/||; | |
25 | ($dir = $file) =~ s|[^/]*$||; | |
26 | 26 | $dir = "." if $dir eq ""; |
27 | 27 | |
28 | 28 | open(FILE, $file) || die "$file: $!"; |
Branches:
master