From 2bffde85ad998c66016b9dd91fb238821b2f4642 Mon Sep 17 00:00:00 2001
From: Michele Calgaro <michele.calgaro@yahoo.it>
Date: Tue, 2 Apr 2024 13:11:08 +0900
Subject: [PATCH] Fix FTBFS caused by TDE/tqt3#109

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
---
 kalyptus/kalyptus | 7 +++++--
 1 file 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;