From 8f65c54a81e1b3d32c3c693e1599720f830fa96f Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 18 Feb 2005 01:29:18 +0000
Subject: r5439: (hopefully) fix build on older perls. Thanks to tridge for
 pointing this out. (This used to be commit
 0a78a1f90887afc695204f67af38138271aab2b8)

---
 source4/build/pidl/ndr.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/source4/build/pidl/ndr.pm b/source4/build/pidl/ndr.pm
index 90bbc9c9a9..7a2fc850ce 100644
--- a/source4/build/pidl/ndr.pm
+++ b/source4/build/pidl/ndr.pm
@@ -376,7 +376,7 @@ sub align_type
 	my $dt = $typedefs{$e}->{DATA};
 
 	return $dt->{ALIGN} if ($dt->{ALIGN});
-	return $typefamily{$dt->{TYPE}}->{ALIGN}($dt);
+	return $typefamily{$dt->{TYPE}}->{ALIGN}->($dt);
 }
 
 #####################################################################
@@ -1468,7 +1468,7 @@ sub ParseTypedefPush($)
 
 	pidl "{";
 	indent;
-	$typefamily{$e->{DATA}->{TYPE}}->{PUSH_FN_BODY}($e->{DATA});
+	$typefamily{$e->{DATA}->{TYPE}}->{PUSH_FN_BODY}->($e->{DATA});
 	pidl "return NT_STATUS_OK;";
 	deindent;
 	pidl "}";
@@ -1510,7 +1510,7 @@ sub ParseTypedefPull($)
 
 	pidl "{";
 	indent;
-	$typefamily{$e->{DATA}->{TYPE}}->{PULL_FN_BODY}($e->{DATA});
+	$typefamily{$e->{DATA}->{TYPE}}->{PULL_FN_BODY}->($e->{DATA});
 	pidl "return NT_STATUS_OK;";
 	deindent;
 	pidl "}";
@@ -1550,7 +1550,7 @@ sub ParseTypedefPrint($)
 		indent;
 	}
 
-	$typefamily{$e->{DATA}->{TYPE}}->{PRINT_FN_BODY}($e->{DATA});
+	$typefamily{$e->{DATA}->{TYPE}}->{PRINT_FN_BODY}->($e->{DATA});
 	deindent;
 	pidl "}";
 }
-- 
cgit