Skip to content
Browse files

More Win32 fixing.

  • Loading branch information...
1 parent 1c1df07 commit e8f1063acedbb228996c7d17e0249c27a6a2a7c1 @jnthn jnthn committed
Showing with 15 additions and 15 deletions.
  1. +15 −15 lib/File/Spec/Win32.pm
View
30 lib/File/Spec/Win32.pm
@@ -5,9 +5,9 @@ my $module = "File::Spec::Unix";
require $module;
class File::Spec::Win32 {
- method canonpath { ::($module).canonpath() }
- method catdir { ::($module).catdir() }
- method catfile { ::($module).catfile() }
+ method canonpath(|c) { ::($module).canonpath(|c) }
+ method catdir(|c) { ::($module).catdir(|c) }
+ method catfile(|c) { ::($module).catfile(|c) }
method curdir { ::($module).curdir() }
method devnull { 'nul' }
method rootdir { '\\' }
@@ -15,7 +15,7 @@ class File::Spec::Win32 {
my $tmpdir;
method tmpdir {
return $tmpdir if $tmpdir.defined;
- $tmpdir = ::('File::Spec::Unix')._tmpdir(
+ $tmpdir = ::($module)._tmpdir(
%*ENV{'TMPDIR'},
%*ENV{'TEMP'},
%*ENV{'TMP'},
@@ -27,17 +27,17 @@ class File::Spec::Win32 {
);
}
- method updir { ::($module).updir() }
- method no_upwards { ::($module).no_upwards() }
- method case_tolerant { 1 }
- method file_name_is_absolute { ::($module).file_name_is_absolute() }
- method path { ::($module).path() }
- method join { ::($module).join() }
- method splitpath { ::($module).splitpath() }
- method splitdir { ::($module).splitdir() }
- method catpath { ::($module).catpath() }
- method abs2rel { ::($module).abs2rel() }
- method rel2abs { ::($module).rel2abs() }
+ method updir { ::($module).updir() }
+ method no_upwards(|c) { ::($module).no_upwards(|c) }
+ method case_tolerant { 1 }
+ method file_name_is_absolute(|c) { ::($module).file_name_is_absolute(|c) }
+ method path { ::($module).path() }
+ method join(|c) { ::($module).join() }
+ method splitpath(|c) { ::($module).splitpath(|c) }
+ method splitdir(|c) { ::($module).splitdir(|c) }
+ method catpath(|c) { ::($module).catpath(|c) }
+ method abs2rel(|c) { ::($module).abs2rel(|c) }
+ method rel2abs(|c) { ::($module).rel2abs(|c) }
}
1;

0 comments on commit e8f1063

Please sign in to comment.
Something went wrong with that request. Please try again.