summaryrefslogtreecommitdiffstats
path: root/kalyptus
diff options
context:
space:
mode:
authorMichele Calgaro <michele.calgaro@yahoo.it>2024-04-02 13:17:00 +0900
committerMichele Calgaro <michele.calgaro@yahoo.it>2024-04-04 10:32:56 +0900
commit71a53642088e16f1ad6ce4553ed500fcb1771647 (patch)
tree66806f858e93ff608f9c0bb7b80197091b1ccae8 /kalyptus
parentfe96059412b3f331f1444d3a96b568e06c8b42fc (diff)
downloadlibtqt-perl-r14.1.2.tar.gz
libtqt-perl-r14.1.2.zip
Align kalyptus to changes made inx TDE/tdebindings#36r14.1.2
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it> (cherry picked from commit ed5ee2e39d0e03be8a8bffb4dfd5c624d1705b24)
Diffstat (limited to 'kalyptus')
-rw-r--r--kalyptus/kalyptus7
1 files changed, 5 insertions, 2 deletions
diff --git a/kalyptus/kalyptus b/kalyptus/kalyptus
index 8b36f23..3cb797b 100644
--- a/kalyptus/kalyptus
+++ b/kalyptus/kalyptus
@@ -937,7 +937,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
@@ -949,7 +952,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;