]> git.vpit.fr Git - perl/modules/autovivification.git/blobdiff - t/40-scope.t
Remove trailing whitespace
[perl/modules/autovivification.git] / t / 40-scope.t
index 0e3cdecfa5f88da56329f07d3088f4579fd193b1..6b8361a33114e07d7f11717ef8efc6cd47981ab7 100644 (file)
@@ -12,7 +12,7 @@ use lib 't/lib';
  my $x;
  my $res = eval {
   local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
-  no autovivification qw/warn fetch/;
+  no autovivification qw<warn fetch>;
   $x->{a};
  };
  is   @w,    1,     'warned only once';
@@ -34,11 +34,11 @@ our $blurp;
 
 {
  local $blurp;
- eval 'no autovivification; use autovivification::TestRequired2; $blurp->{a}'; 
+ eval 'no autovivification; use autovivification::TestRequired2; $blurp->{a}';
  is        $@,     '',      'second require test doesn\'t croak prematurely';
  my $expect;
  $expect = { r1_main => { }, r1_eval => { } };
- $expect->{r2_eval} = { } if $] <  5.009005;
+ $expect->{r2_eval} = { } if "$]" <  5.009005;
  is_deeply $blurp, $expect, 'second require test didn\'t vivify';
 }