Check for empty string

hakonhagland · hakonhagland · commit 720fd7a8822b · 2023-09-19T15:13:39.000+02:00
To fix a test failure, I am checking if it is caused by
Win32::GetConsoleCP()
returning an empty string
diff --git a/lib/ExtUtils/MakeMaker.pm b/lib/ExtUtils/MakeMaker.pm
@@ -225,7 +225,7 @@ sub prompt ($;$) {  ## no critic
         $ans = <STDIN>;
         if( defined $ans ) {
             $ans =~ s{\015?\012$}{};
-            if ($Is_Win32 and defined $codepage) {
+            if ($Is_Win32 and defined $codepage and length $codepage) {
                 $ans = Encode::decode("cp". $codepage, $ans);
             }
         }

Original file line number	Diff line number	Diff line change
`@@ -225,7 +225,7 @@ sub prompt ($;$) { ## no critic`
`225`	`225`	`$ans = <STDIN>;`
`226`	`226`	`if( defined $ans ) {`
`227`	`227`	`$ans =~ s{\015?\012$}{};`
`228`		`- if ($Is_Win32 and defined $codepage) {`
	`228`	`+ if ($Is_Win32 and defined $codepage and length $codepage) {`
`229`	`229`	`$ans = Encode::decode("cp". $codepage, $ans);`
`230`	`230`	`}`
`231`	`231`	`}`