[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.416,1.417
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-06-03 16:50:52
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11765/lib/Module/Build Modified Files: Base.pm Log Message: Remove hard-coded File::Spec::Unix references Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.416 retrieving revision 1.417 diff -u -d -r1.416 -r1.417 --- Base.pm 21 Apr 2005 01:59:55 -0000 1.416 +++ Base.pm 3 Jun 2005 16:50:38 -0000 1.417 @@ -1873,7 +1873,7 @@ map [File::Spec->catdir($self->blib, $_), $_], qw( script lib ); - my $htmldir = File::Spec::Unix->catdir($self->blib, 'html'); + my $htmldir = File::Spec->catdir($self->blib, 'html'); unless (-d $htmldir) { File::Path::mkpath($htmldir, 0, 0755) or die "Couldn't mkdir $htmldir: $!"; } @@ -1895,9 +1895,9 @@ my @dirs = File::Spec->splitdir( File::Spec->canonpath( $path ) ); pop( @dirs ) if $dirs[-1] eq File::Spec->curdir; - my $fulldir = File::Spec::Unix->catfile($htmldir, @rootdirs, @dirs); - my $outfile = File::Spec::Unix->catfile($fulldir, $name . '.html'); - my $infile = File::Spec::Unix->abs2rel($pod); + my $fulldir = File::Spec->catfile($htmldir, @rootdirs, @dirs); + my $outfile = File::Spec->catfile($fulldir, $name . '.html'); + my $infile = File::Spec->abs2rel($pod); return if $self->up_to_date($infile, $outfile); @@ -1907,7 +1907,7 @@ } my $path2root = "../" x (@rootdirs+@dirs); - my $htmlroot = File::Spec::Unix->catdir($path2root, 'site'); + my $htmlroot = "$path2root/site"; my $title = join('::', (@dirs, $name)); { |