X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-base.t;h=c96ba8cd985e9e69eef237ecb96c6b0dbaea1def;hb=bdab145ebb1c29e7ec08d6aff4b25f9282fa4d2f;hp=d822d55087f04a1a9e595ca4f71e63108dfb4a6e;hpb=f6d3ef7cd3dbac8e985f3ddcdcce6012274af7ad;p=perl%2Fmodules%2Fsubs-auto.git

diff --git a/t/10-base.t b/t/10-base.t
index d822d55..c96ba8c 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -161,7 +161,7 @@ _got_undefined('qux', __LINE__-1);
  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');
@@ -284,14 +284,14 @@ _got_undefined('blech', 1, eval => 1);
 # ... 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');
@@ -340,7 +340,7 @@ close DONGS;
 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) ................................