Fix getxcatdocs to not use File::Path::make_path, which apparently isn't in all perls

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12290 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
bp-sawyers 2012-04-20 13:37:58 +00:00
parent 3d6021bca9
commit 3b97f0c9ef

View File

@ -17,7 +17,7 @@ use strict;
#use lib "$::XCATROOT/lib/perl";
#use xCAT::Utils;
use Getopt::Long;
use File::Path;
#use File::Path;
use Cwd;
#use Data::Dumper;
@ -92,7 +92,8 @@ sub verbose { if ($VERBOSE) { print shift, "\n"; } }
sub gethtmldocs {
my $dir = shift;
my $savedir = getcwd();
File::Path::make_path($dir);
#File::Path::make_path($dir);
mkdir($dir);
chdir($dir);
#system('pwd');
unlink <*>; # delete all the files in the dir, in case they previously ran this
@ -123,7 +124,8 @@ sub gethtmldocs {
sub convert2pdf {
my ($dir, $files) = @_;
my $savedir = getcwd();
File::Path::make_path($dir);
#File::Path::make_path($dir);
mkdir($dir);
chdir($dir);
if (system('which xhtml2pdf >/dev/null 2>&1')) { die "xhtml2pdf is not installed. See http://sourceforge.net/apps/mediawiki/xcat/index.php?title=Editing_xCAT_Documentation_Pages#Converting_Wiki_Pages_to_HTML_and_PDFs .\n"; }
unlink <*>; # delete all the files in the dir, in case they previously ran this