my $Is_VMS = $^O eq 'VMS';
my $Is_Win32 = $^O eq 'MSWin32';
-plan(tests => 22);
+plan(tests => 24);
my $Perl = which_perl();
END
{
+ no warnings 'experimental::lexical_topic';
my $_ = qq($Perl -le "print 'ok'");
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/ ) {