schhist/sanitize-{profile,schem}: "dirname" logic was reversed

The substitution acted as "basename" instead of "dirname".

schhist/sanitize-profile

@@ -68,7 +68,7 @@ for (split(",", $ENV{"SCHHIST_ADDLIBS"})) {
 ($file, $out) = @ARGV;
 &usage if $#ARGV > 1;
 
-($dir = $file) =~ s|.*/||;
+($dir = $file) =~ s|[^/]*$||;
 $dir = "." if $dir eq "";
 
 open(FILE, $file) || die "$file: $!";

schhist/sanitize-schem

@@ -22,7 +22,7 @@ sub usage
 ($file, $out) = @ARGV;
 &usage if $#ARGV > 1;
 
-($dir = $file) =~ s|.*/||;
+($dir = $file) =~ s|[^/]*$||;
 $dir = "." if $dir eq "";
 
 open(FILE, $file) || die "$file: $!";