[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]