diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2012-04-15 21:31:08 -0400 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2012-04-15 21:55:26 -0400 |
| commit | 8376a7bfebc88cd8955782fa2c6b6ce3a54a7cb0 (patch) | |
| tree | b9313f5615ad44513ed1b633815786909869fdd5 /ext/Pod-Html/lib | |
| parent | 1a13b0759af8c958576ca1da3d406f7abdf9d241 (diff) | |
| download | perl-8376a7bfebc88cd8955782fa2c6b6ce3a54a7cb0.tar.gz | |
make Pod-Html's _unixify normalize Win32 drive letters
Okay, look, this is kind of stupid and horrible, but it should
stop smoke failures and actually address some forms of failed path
comparisons in Pod::Html. In reality, we should be doing better path
comparisons than checking substr and eq, but that's not going to get
properly overhauled at this late date.
In the meantime, this should fix Win32 smokers with forcibly lc()-ed
cwds without breaking anybodye else, right? Right!
Diffstat (limited to 'ext/Pod-Html/lib')
| -rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index c16b6573e7..f6698738c2 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -3,7 +3,7 @@ use strict; require Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = 1.15_01; +$VERSION = 1.15_02; @ISA = qw(Exporter); @EXPORT = qw(pod2html htmlify); @EXPORT_OK = qw(anchorify); @@ -677,6 +677,7 @@ sub _unixify { : File::Spec->splitdir($dirs); if (defined($vol) && $vol) { $vol =~ s/:$// if $^O eq 'VMS'; + $vol = uc $vol if $^O eq 'MSWin32'; if( $dirs[0] ) { unshift @dirs, $vol; |