r21222: Merge a couple of pidl fixes:

[samba.git] / source4 / pidl / lib / Parse / Pidl / Util.pm

diff --git a/source4/pidl/lib/Parse/Pidl/Util.pm b/source4/pidl/lib/Parse/Pidl/Util.pm
index 3ca79b6c1c8c05e106911720accd62b5b77e9555..00185fbef76e8eb45b6e43493344ca9dae72f455 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/Util.pm
+++ b/source4/pidl/lib/Parse/Pidl/Util.pm
@@ -101,12 +101,12 @@ sub ParseExpr($$$)
                          return($varlist->{$x}) if (defined($varlist->{$x})); 
                          return $x;
                  },
-               undef);
+               undef, undef);
 }
 
-sub ParseExprExt($$$$)
+sub ParseExprExt($$$$$)
 {
-       my($expr, $varlist, $e, $deref) = @_;
+       my($expr, $varlist, $e, $deref, $use) = @_;
 
        die("Undefined value in ParseExpr") if not defined($expr);
 
@@ -118,7 +118,7 @@ sub ParseExprExt($$$$)
                          return($varlist->{$x}) if (defined($varlist->{$x})); 
                          return $x;
                  },
-               $deref);
+               $deref, $use);
 }
 
 1;