Fix FTBFS caused by TDE/tqt3#109

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit 2bffde85ad)

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;