From ed5ee2e39d0e03be8a8bffb4dfd5c624d1705b24 Mon Sep 17 00:00:00 2001
From: Michele Calgaro <michele.calgaro@yahoo.it>
Date: Tue, 2 Apr 2024 13:17:00 +0900
Subject: [PATCH] Align kalyptus to changes made inx TDE/tdebindings#36

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 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;