Skip to content
Browse files

Make sure myconfig is read in text-mode on Windows

  • Loading branch information...
1 parent 4f09046 commit 24c6beb3287cfbdb5d5403da55c539eac3a852da @Leont committed Jul 25, 2012
Showing with 2 additions and 0 deletions.
  1. +1 −0 Changes
  2. +1 −0 lib/Devel/FindPerl.pm
View
1 Changes
@@ -1,6 +1,7 @@
Revision history for Devel-FindPerl
{{$NEXT}}
+ Make sure myconfig is read in text-mode on Windows
0.003 2012-07-23 12:02:13 Europe/Bucharest
Convert from pipe open to IPC::Open2
View
1 lib/Devel/FindPerl.pm
@@ -110,6 +110,7 @@ sub _perl_is_same {
push @cmd, qw(-MConfig=myconfig -e print -e myconfig);
my $pid = open2(my($in, $out), @cmd);
+ binmode $in, ':crlf' if $^O eq 'MSWin32';
my $ret = do { local $/; <$in> };
waitpid $pid, 0;
return $ret eq Config->myconfig;

0 comments on commit 24c6beb

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