[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    KDE/kdebindings/kalyptus
From:       Germain Garand <germain () ebooksfrance ! com>
Date:       2007-10-03 13:07:10
Message-ID: 1191416830.387016.31415.nullmailer () svn ! kde ! org
[Download RAW message or body]

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 }


[prev in list] [next in list] [prev in thread] [next in thread]