Align kalyptus to changes made in TDE/tdebindings#36

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>

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;