[wip commit to run the test matrix]

ap · ap · commit a18ba36c05b2 · 2025-05-23T05:26:57.000+02:00
diff --git a/t/io/perlio_open.t b/t/io/perlio_open.t
@@ -44,8 +44,8 @@ SKIP:
 }
 
 {
-    my $fn = \&CORE::open;
-    ok($fn->(my $fh, "+>", undef), "(\\&CORE::open)->(my \$fh, '+>', undef)");
+    sub wrapped_open { &CORE::open }
+    ok((wrapped_open my $fh, "+>", undef), "wrapped_open my \$fh, '+>', undef");
     print $fh "the right write stuff";
     ok(seek($fh, 0, SEEK_SET), "seek to zero");
     my $data = <$fh>;

Original file line number	Diff line number	Diff line change
`@@ -44,8 +44,8 @@ SKIP:`
`44`	`44`	`}`
`45`	`45`
`46`	`46`	`{`
`47`		`- my $fn = \&CORE::open;`
`48`		`- ok($fn->(my $fh, "+>", undef), "(\\&CORE::open)->(my \$fh, '+>', undef)");`
	`47`	`+ sub wrapped_open { &CORE::open }`
	`48`	`+ ok((wrapped_open my $fh, "+>", undef), "wrapped_open my \$fh, '+>', undef");`
`49`	`49`	`print $fh "the right write stuff";`
`50`	`50`	`ok(seek($fh, 0, SEEK_SET), "seek to zero");`
`51`	`51`	`my $data = <$fh>;`