diff options
| author | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-04-02 13:17:00 +0900 |
|---|---|---|
| committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-04-04 10:32:56 +0900 |
| commit | 71a53642088e16f1ad6ce4553ed500fcb1771647 (patch) | |
| tree | 66806f858e93ff608f9c0bb7b80197091b1ccae8 | |
| parent | fe96059412b3f331f1444d3a96b568e06c8b42fc (diff) | |
| download | libtqt-perl-r14.1.x.tar.gz libtqt-perl-r14.1.x.zip | |
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit ed5ee2e39d0e03be8a8bffb4dfd5c624d1705b24)
| -rw-r--r-- | kalyptus/kalyptus | 7 |
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; |