mirror of
git://projects.qi-hardware.com/eda-tools.git
synced 2024-11-04 23:05:21 +02:00
schhist/sanitize-{profile,schem}: "dirname" logic was reversed
The substitution acted as "basename" instead of "dirname".
This commit is contained in:
parent
9b1277886b
commit
e943baf1c3
@ -68,7 +68,7 @@ for (split(",", $ENV{"SCHHIST_ADDLIBS"})) {
|
|||||||
($file, $out) = @ARGV;
|
($file, $out) = @ARGV;
|
||||||
&usage if $#ARGV > 1;
|
&usage if $#ARGV > 1;
|
||||||
|
|
||||||
($dir = $file) =~ s|.*/||;
|
($dir = $file) =~ s|[^/]*$||;
|
||||||
$dir = "." if $dir eq "";
|
$dir = "." if $dir eq "";
|
||||||
|
|
||||||
open(FILE, $file) || die "$file: $!";
|
open(FILE, $file) || die "$file: $!";
|
||||||
|
@ -22,7 +22,7 @@ sub usage
|
|||||||
($file, $out) = @ARGV;
|
($file, $out) = @ARGV;
|
||||||
&usage if $#ARGV > 1;
|
&usage if $#ARGV > 1;
|
||||||
|
|
||||||
($dir = $file) =~ s|.*/||;
|
($dir = $file) =~ s|[^/]*$||;
|
||||||
$dir = "." if $dir eq "";
|
$dir = "." if $dir eq "";
|
||||||
|
|
||||||
open(FILE, $file) || die "$file: $!";
|
open(FILE, $file) || die "$file: $!";
|
||||||
|
Loading…
Reference in New Issue
Block a user