Switch to <> for qw delimiters

[perl/modules/CPANPLUS-Dist-Gentoo.git] / lib / CPANPLUS / Dist / Gentoo / Version.pm

diff --git a/lib/CPANPLUS/Dist/Gentoo/Version.pm b/lib/CPANPLUS/Dist/Gentoo/Version.pm
index bce74eadd906bac4f472bf34817035d8a1016682..752fe97f7349c5c4eff71ed48d8e97cfc2772660 100644 (file)
--- a/lib/CPANPLUS/Dist/Gentoo/Version.pm
+++ b/lib/CPANPLUS/Dist/Gentoo/Version.pm
@@ -33,7 +33,7 @@ my $positive_int_rx = qr/0*[1-9][0-9]*/;
 my $letter_rx       = qr/[a-zA-Z]/;
 my $dotted_num_rx   = qr/$int_rx(?:\.$int_rx)*/o;
 
-my @suffixes  = qw(alpha beta pre rc normal p);
+my @suffixes  = qw<alpha beta pre rc normal p>;
 my $suffix_rx = join '|', grep !/^normal$/, @suffixes;
 $suffix_rx    = qr/(?:$suffix_rx)/o;
 
@@ -86,7 +86,7 @@ sub new {
 
 my @parts;
 BEGIN {
- @parts = qw/version letter suffixes revision/;
+ @parts = qw<version letter suffixes revision>;
  eval "sub $_ { \$_[0]->{$_} }" for @parts;
 }