diff options
author | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-04-02 13:11:08 +0900 |
---|---|---|
committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-04-04 10:30:59 +0900 |
commit | fd2a99a7dba0365f6536c282e5929ef862eace05 (patch) | |
tree | 07c31eac71b56f87a34b8de7879763a03aefed1a | |
parent | 935aa33156b9b5a82b4d81a7aa4ff0a382866ca2 (diff) | |
download | tdebindings-fd2a99a7dba0365f6536c282e5929ef862eace05.tar.gz tdebindings-fd2a99a7dba0365f6536c282e5929ef862eace05.zip |
Fix FTBFS caused by TDE/tqt3#109
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit 2bffde85ad998c66016b9dd91fb238821b2f4642)
-rw-r--r-- | kalyptus/kalyptus | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/kalyptus/kalyptus b/kalyptus/kalyptus index a0357bbd..ad897365 100644 --- a/kalyptus/kalyptus +++ b/kalyptus/kalyptus @@ -952,7 +952,10 @@ sub identifyDecl \( (.*?) \) # parameters \s*((?:const)?)\s* (?:throw\s*\(.*?\))? - \s*((?:=\s*0(?:L?))?)\s* # Pureness. is "0L" allowed? + \s*((?:=\s*(?: + 0(?:L?)| # Pureness. is "0L" allowed? + default # Default method + ))?) \s*[;{]+/xs ) { # rest my $tpn = $1; # type + name @@ -964,7 +967,7 @@ sub identifyDecl } my $const = $3 eq "" ? 0 : 1; - my $pure = $4 eq "" ? 0 : 1; + my $pure = $4 eq "" ? 0 : ($4 =~ "default" ? 0 : 1); $tpn =~ s/\s+/ /g; $tpn =~ s/operator\s+([^\w])/operator$1/g; $params =~ s/\s+/ /g; |