This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
unixify the --outfile arg to pod2html
authorRicardo Signes <rjbs@cpan.org>
Wed, 22 Feb 2012 03:19:56 +0000 (22:19 -0500)
committerRicardo Signes <rjbs@cpan.org>
Wed, 22 Feb 2012 04:42:34 +0000 (23:42 -0500)
I think we probably need a more systematic regimen of of unixify
calls, but for now, this gets tests passing on Win32.

ext/Pod-Html/lib/Pod/Html.pm

index e663281..d2c2cb2 100644 (file)
@@ -289,6 +289,12 @@ sub pod2html {
     $Htmlroot = "" if $Htmlroot eq "/";
     $Htmldir =~ s#/\z##;
 
+    # I think this, and many other unixifications, belongs in
+    # parse_command_line or some other higher-level location to get them all
+    # unixified at once.  Right now, I think we may be unixifying things too
+    # late and ad hoc. -- rjbs, 2012-02-21
+    $Htmlfile = _unixify($Htmlfile);
+
     if (  $Htmlroot eq ''
        && defined( $Htmldir )
        && $Htmldir ne ''