diff options
| author | Marc Green <marcgreen@cpan.org> | 2011-07-04 09:38:49 -0400 |
|---|---|---|
| committer | Marc Green <marcgreen@cpan.org> | 2011-10-31 13:26:42 -0400 |
| commit | 9d909201639253e039ba54543750d8b313d23672 (patch) | |
| tree | 53cb5b407d488133e2672434cc6ea9c272e17144 /ext | |
| parent | 7c41f1eab9d2e151aad59f8e95f914ad932afcbd (diff) | |
| download | perl-9d909201639253e039ba54543750d8b313d23672.tar.gz | |
Unixify the whole path, not just $dir.$file
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index aaf0764688..a4c53c6fa6 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -655,9 +655,8 @@ sub unixify { my $full_path = shift; return '' unless $full_path; - my ($vol, $dir, $file) = File::Spec->splitpath($full_path); return File::Spec::Unix->catfile( # change \s to /s and such - File::Spec->splitdir($dir.$file)); # ignore $vol(ume) + File::Spec->splitdir($full_path)); } 1; |