We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 25ec2b0 commit 0adb388Copy full SHA for 0adb388
lib/LaTeXML/Util/Pathname.pm
@@ -249,11 +249,13 @@ sub pathname_mkdir {
249
return unless $directory;
250
$directory = pathname_canonical($directory);
251
my ($volume, $dirs, $last) = File::Spec->splitpath($directory);
252
- my (@dirs) = (File::Spec->splitdir($dirs), $last);
+ my (@dirs) = File::Spec->splitdir($dirs);
253
for (my $i = 0 ; $i <= $#dirs ; $i++) {
254
my $dir = File::Spec->catpath($volume, File::Spec->catdir(@dirs[0 .. $i]), '');
255
if (!-d $dir) {
256
mkdir($dir) or return; } }
257
+ if (!-d $directory) {
258
+ mkdir($directory) or return; }
259
return $directory; }
260
261
# copy a file, preserving attributes, if possible.
0 commit comments