Can't use // in Perl 5.008

briandfoy · Apr 18, 2024 · d64aeb2 · d64aeb2
1 parent f7af6f8
commit d64aeb2
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/t/bc/input.t b/t/bc/input.t
@@ -271,11 +271,17 @@ sub run_table {
 			TODO: {
 				local $TODO = $todo;
 				if( ! ref $expected ) {
-					is $output, $expected // '', $description;
+					is $output, (defined $expected ? $expected : ''), $description;
 					}
-				elsif( ref $expected eq ref qr// ) {
+				elsif( $] < 5.010 and ref $expected eq ref qr// ) {
 					like $output, $expected, $description;
 					}
+				else {
+					SKIP: {
+						skip "$] does not have qr//", 1;
+						pass($label);
+						};
+					}
 				}
             }
         };