From 7bab42fc4caf386fb53e463cee7807242e7d4f28 Mon Sep 17 00:00:00 2001
From: Michele Calgaro <michele.calgaro@yahoo.it>
Date: Thu, 4 Apr 2024 10:41:59 +0900
Subject: [PATCH] Align kalyptus to changes made in TDE/tdebindings#36

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
---
 dcop/dcopidlng/kalyptus | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/dcop/dcopidlng/kalyptus b/dcop/dcopidlng/kalyptus
index 2024fb959..e3119b3dc 100644
--- a/dcop/dcopidlng/kalyptus
+++ b/dcop/dcopidlng/kalyptus
@@ -769,7 +769,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
@@ -781,7 +784,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;
 		$params =~ s/\s+/ /g;