[svn:parrot] r46376 - trunk/config/gen

[petdance at svn.parrot.org]

Author: petdance
Date: Fri May  7 02:05:54 2010
New Revision: 46376
URL: https://trac.parrot.org/parrot/changeset/46376

Log:
We can't yet use smart-matching because we are not requiring Perl 5.10

Modified:
   trunk/config/gen/config_pm.pm

Modified: trunk/config/gen/config_pm.pm
==============================================================================
--- trunk/config/gen/config_pm.pm	Fri May  7 02:02:46 2010	(r46375)
+++ trunk/config/gen/config_pm.pm	Fri May  7 02:05:54 2010	(r46376)
@@ -108,7 +108,7 @@
         if (/\@PCONFIG\@/) {
             for my $k ( sort { lc $a cmp lc $b || $a cmp $b } $conf->data->keys ) {
                 next if exists $p5_keys{$k};
-                next if $k ~~ /_provisional/;
+                next if $k =~ /_provisional$/;
 
                 my $v = $conf->data->get($k);
                 if ( defined $v ) {