Fix FTBFS caused by TDE/tqt3#109

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
pull/36/head
Michele Calgaro 8 months ago
parent add9d70b50
commit 2bffde85ad
Signed by: MicheleC
GPG Key ID: 2A75B7CA8ADED5CF

@ -952,7 +952,10 @@ sub identifyDecl
\( (.*?) \) # parameters \( (.*?) \) # parameters
\s*((?:const)?)\s* \s*((?:const)?)\s*
(?:throw\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 \s*[;{]+/xs ) { # rest
my $tpn = $1; # type + name my $tpn = $1; # type + name
@ -964,7 +967,7 @@ sub identifyDecl
} }
my $const = $3 eq "" ? 0 : 1; 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/\s+/ /g;
$tpn =~ s/operator\s+([^\w])/operator$1/g; $tpn =~ s/operator\s+([^\w])/operator$1/g;
$params =~ s/\s+/ /g; $params =~ s/\s+/ /g;

Loading…
Cancel
Save