Avoid uninitialized value warning

Is this custom is() function, a string comparison between $got and $expected assumes both are defined. Make it so.
Perl · Jun 30, 2020 · 1f5f2e8 · 1f5f2e8
1 parent 3aaae3e
commit 1f5f2e8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/t/opbasic/concat.t b/t/opbasic/concat.t
@@ -24,6 +24,8 @@ sub ok($ok, $name) {
 
 sub is($got, $expected, $name) {
 
+    $got //= '';
+    $expected //= '';
     my $ok = $got eq $expected;
 
     printf "%sok %d - %s\n", ($ok ? "" : "not "), $test, $name;