mirrors/scst
1
0
Fork 0
mirror of https://github.com/SCST-project/scst.git synced 2026-05-22 13:11:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'svn-trunk'

Browse Source
This commit is contained in:
Bart Van Assche
2021-07-11 20:45:53 -07:00
parent 6e432da586 a4b3805d11
commit 7fc6af2934
1 changed files with 2 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
scstadmin/scstadmin.sysfs/scst-1.0.0/lib/SCST/SCST.pm
View File

@@ -11,6 +11,7 @@ use strict;
use warnings;
use 5.005;
use Fcntl ':mode';
use File::Spec;
use IO::Handle;
use IO::File;
use Carp qw(cluck);
@@ -4635,17 +4636,7 @@ sub _syswrite {
}
sub make_path {
my $path;
foreach my $element (@_) {
if ($path && rindex($path, '/') != length($path) - 1) {
$path .= '/';
}
cluck("make_path: invalid argument") if !valid($element);
$path .= $element;
}
return $path;
return File::Spec->catdir(@_);
}
;1 __END__