module-build-checkins

[Ken W. <kwi...@us...>]

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));
     {