Remove trailing whitespace

[perl/modules/subs-auto.git] / t / 10-base.t

diff --git a/t/10-base.t b/t/10-base.t
index 249fe0f92d23b49390faced11dbf811c09400564..5d09c90b109b0332eacd645cbd6b3d15b61043eb 100644 (file)
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -196,7 +196,7 @@ is($foo, 7, 'foo really was executed');
 
 $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;
 };
@@ -236,7 +236,7 @@ my $cb = eval {
    no strict;
    no warnings 'reserved';
    blech;
-  }  
+  }
  }
 };
 _got_ok('compiling to bareword');
@@ -284,7 +284,7 @@ _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');
@@ -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) ................................