Skip over state declarations at run time

[perl5.git] / t / op / exec.t

diff --git a/t/op/exec.t b/t/op/exec.t
index 28f3043..6ec3646 100644 (file)
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -36,7 +36,7 @@ $ENV{LANGUAGE} = 'C';         # Ditto in GNU.
 my $Is_VMS   = $^O eq 'VMS';
 my $Is_Win32 = $^O eq 'MSWin32';
 
-plan(tests => 22);
+plan(tests => 24);
 
 my $Perl = which_perl();
 
@@ -129,6 +129,17 @@ END
     is( readpipe, "ok\n", 'readpipe default argument' );
 }
 
+package o {
+    use subs "readpipe";
+    sub readpipe { pop }
+    ::is `${\"hello"}`, 'hello',
+         'overridden `` interpolates [perl #115330]';
+    ::is <<`119827`, "ls\n",
+l${\"s"}
+119827
+        '<<`` respects overrides and interpolates [perl #119827]';
+}
+
 TODO: {
     my $tnum = curr_test();
     if( $^O =~ /Win32/ ) {