$warn = undef;
eval {
- local $SIG{__WARN__} = sub { $warn = $_[0] =~ /Subroutine\s+\S+redefined/ };
+ local $SIG{__WARN__} = sub { $warn = $_[0] =~ /Subroutine\s+\S+redefined/ };
local *qux = sub { $qux = $_[0] };
qux 5;
};
no strict;
no warnings 'reserved';
blech;
- }
+ }
}
};
_got_ok('compiling to bareword');