svn commit: samba r5439 - in branches/SAMBA_4_0/source/build/pidl: .

[jelmer at samba.org]

Author: jelmer
Date: 2005-02-18 01:29:18 +0000 (Fri, 18 Feb 2005)
New Revision: 5439

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=5439

Log:
(hopefully) fix build on older perls. Thanks to tridge for pointing this out.

Modified:
   branches/SAMBA_4_0/source/build/pidl/ndr.pm


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/ndr.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/ndr.pm	2005-02-17 23:39:56 UTC (rev 5438)
+++ branches/SAMBA_4_0/source/build/pidl/ndr.pm	2005-02-18 01:29:18 UTC (rev 5439)
@@ -376,7 +376,7 @@
 	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 @@
 
 	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 @@
 
 	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 @@
 		indent;
 	}
 
-	$typefamily{$e->{DATA}->{TYPE}}->{PRINT_FN_BODY}($e->{DATA});
+	$typefamily{$e->{DATA}->{TYPE}}->{PRINT_FN_BODY}->($e->{DATA});
 	deindent;
 	pidl "}";
 }