summaryrefslogtreecommitdiff
path: root/source4/build/pidl/ndr.pm
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2005-02-18 01:29:18 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:10:45 -0500
commit8f65c54a81e1b3d32c3c693e1599720f830fa96f (patch)
treed80c55a576d4cc84817af8bb1044bd7c2af2e616 /source4/build/pidl/ndr.pm
parent7c65b81ed434b1fc27265710f07826d44fe542b9 (diff)
downloadsamba-8f65c54a81e1b3d32c3c693e1599720f830fa96f.tar.gz
samba-8f65c54a81e1b3d32c3c693e1599720f830fa96f.tar.bz2
samba-8f65c54a81e1b3d32c3c693e1599720f830fa96f.zip
r5439: (hopefully) fix build on older perls. Thanks to tridge for pointing this out.
(This used to be commit 0a78a1f90887afc695204f67af38138271aab2b8)
Diffstat (limited to 'source4/build/pidl/ndr.pm')
-rw-r--r--source4/build/pidl/ndr.pm8
1 files 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 "}";
}