Fixed typo

hakonhagland · hakonhagland · commit feb1f86dce6a · 2023-09-18T14:03:12.000+02:00
diff --git a/lib/ExtUtils/MakeMaker.pm b/lib/ExtUtils/MakeMaker.pm
@@ -220,12 +220,12 @@ sub prompt ($;$) {  ## no critic
         if ($Is_Win32) {
             require Win32::Console;
             require Encode;
-            my $codepage = Win32::GetConsoleCP();  # get the input code page
+            $codepage = Win32::GetConsoleCP();  # get the input code page
         }
         $ans = <STDIN>;
         if( defined $ans ) {
             $ans =~ s{\015?\012$}{};
-            if ($Is_Win32) {
+            if ($Is_Win32 and defined $codepage) {
                 $ans = Encode::decode("cp". $codepage, $ans);
             }
         }

Original file line number	Diff line number	Diff line change
`@@ -220,12 +220,12 @@ sub prompt ($;$) { ## no critic`
`220`	`220`	`if ($Is_Win32) {`
`221`	`221`	`require Win32::Console;`
`222`	`222`	`require Encode;`
`223`		`- my $codepage = Win32::GetConsoleCP(); # get the input code page`
	`223`	`+ $codepage = Win32::GetConsoleCP(); # get the input code page`
`224`	`224`	`}`
`225`	`225`	`$ans = <STDIN>;`
`226`	`226`	`if( defined $ans ) {`
`227`	`227`	`$ans =~ s{\015?\012$}{};`
`228`		`- if ($Is_Win32) {`
	`228`	`+ if ($Is_Win32 and defined $codepage) {`
`229`	`229`	`$ans = Encode::decode("cp". $codepage, $ans);`
`230`	`230`	`}`
`231`	`231`	`}`