SVN commit 720676 by ggarand:

disambiguate this. Some perl versions seem to have different heuristics for symbol resolution inside a regexp.


 M  +1 -1      kalyptus  


--- trunk/KDE/kdebindings/kalyptus/kalyptus #720675:720676
@@ -217,7 +217,7 @@
 # Otherwise, compile the default ones. Used for filtering in readCxxLine.
 if ( my @qt_defines = map { ($_=~m/^QT_(.*)/)[0] } keys %defines)
 {
-    my $regexp = "m/^#\\s*if\\s*[n!]?\\s*def(ined\\()?\\s*QT_(?:" . join('|', map { "\$qt_defines[$_]" } 0..$#qt_defines).")/o";
+    my $regexp = "m/^#\\s*if\\s*[n!]?\\s*def(ined\\()?\\s*QT_(?:" . join('|', map { "${qt_defines[$_]}" } 0..$#qt_defines).")/o";
     $match_qt_defines = eval "sub { my \$s=shift;
                                    \$s=~/^#\\s*if\\s*([n!])?\s*def(ined\\()?\\s*QT_/ || return 0;
                                    if(!\$1) { return \$s=~$regexp ? 0:1 }