Switch to <> for qw delimiters

[perl/modules/CPANPLUS-Dist-Gentoo.git] / t / 30-atom-new.t

diff --git a/t/30-atom-new.t b/t/30-atom-new.t
index dec89c2c5d84a6abfd671a880e232b431c7ab78f..0a14f6f6f56c5294e808e77e60851b18e8779927 100644 (file)
--- a/t/30-atom-new.t
+++ b/t/30-atom-new.t
@@ -43,11 +43,11 @@ my @tests = (
  [ { %$a1, range => '<>' }  => inv('range'), ],
  [ { %$a1, range => '<=' }  => { %$a1, range => '<=' } ],
 
- [ { atom => 'test/a' }        => $a0 ],
- [ { atom => 'test/a-1.0' }    => { %$a1, range => '>=' } ],
- [ { atom => '=test/a-v1.0' }  => { %$a1, range => '=' } ],
- [ { atom => '=<test/a-v1.0' } => inv('atom') ],
- [ { atom => '>=test/a' }      => $range_no_ver ],
+ [ { atom => 'test/a' }       => $a0 ],
+ [ { atom => 'test/a-1.0' }   => { %$a1, range => '>=' } ],
+ [ { atom => '=test/a-1.0' }  => { %$a1, range => '=' } ],
+ [ { atom => '=<test/a-1.0' } => inv('atom') ],
+ [ { atom => '>=test/a' }     => $range_no_ver ],
 
  [ { ebuild => undef }                      => inv('ebuild') ],
  [ { ebuild => '/wat/test/a/a.ebuild' }     => inv('ebuild') ],
@@ -56,7 +56,7 @@ my @tests = (
  [ { ebuild => '/wat/test+/a+b/a+b-1.2.3.ebuild' } => { %$a2, range => '>=' } ],
 );
 
-my @fields = qw/range category name version ebuild/;
+my @fields = qw<range category name version ebuild>;
 
 for my $t (@tests) {
  my ($args, $exp) = @$t;