diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-02-18 01:29:18 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:10:45 -0500 |
| commit | 8f65c54a81e1b3d32c3c693e1599720f830fa96f (patch) | |
| tree | d80c55a576d4cc84817af8bb1044bd7c2af2e616 /source4 | |
| parent | 7c65b81ed434b1fc27265710f07826d44fe542b9 (diff) | |
| download | samba-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')
| -rw-r--r-- | source4/build/pidl/ndr.pm | 8 |
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 "}"; } |