isnt(*{'::yay'}{CODE}, undef, 'yay is defined');
isnt(*{'::foo'}{CODE}, undef, 'foo is defined');
is(*{'::flip'}{CODE}, undef, 'flip isn\'t defined');
- isnt(*{'::flop'}{CODE}, undef, 'flip is defined');
+ isnt(*{'::flop'}{CODE}, undef, 'flop is defined');
is(*{'::qux'}{CODE}, undef, 'qux isn\'t defined');
isnt(*{'::blech'}{CODE}, undef, 'blech is defined');
isnt(*{'::wut'}{CODE}, undef, 'wut is defined');
$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');
# ... How's my symbol table, Doug Hastings? ...................................
{
- no strict qw/refs subs/;
+ no strict qw<refs subs>;
is(*{::feh}{CODE}, undef, 'feh isn\'t defined');
is(*{::feh}{CODE}, undef, 'feh isn\'t defined, really');
isnt(*{::yay}{CODE}, undef, 'yay is defined');
isnt(*{::foo}{CODE}, undef, 'foo is defined'); # calls foo
is($foo, '::foo', 'foo was called');
is(*{::flip}{CODE}, undef, 'flip isn\'t defined');
- isnt(*{::flop}{CODE}, undef, 'flip is defined');
+ isnt(*{::flop}{CODE}, undef, 'flop is defined');
is(*{::qux}{CODE}, undef, 'qux isn\'t defined');
isnt(*{::blech}{CODE}, undef, 'blech is defined');
isnt(*{::wut}{CODE}, undef, 'wut is defined');
seek DATA, 0, 1;
my @fruits = <DATA>;
chomp @fruits;
-is_deeply(\@fruits, [ qw/apple pear banana/ ], 'DATA filehandle ok');
+is_deeply(\@fruits, [ qw<apple pear banana> ], 'DATA filehandle ok');
# ... Retest foo (declared and defined inside) ................................