Make some fatal errors non-fatal. This means we generate invalid code in

[kai/samba.git] / pidl / lib / Parse / Pidl / Samba4.pm

diff --git a/pidl/lib/Parse/Pidl/Samba4.pm b/pidl/lib/Parse/Pidl/Samba4.pm
index 5bdb91ee2519776433e64227da689ae25697846c..20c518dcebf66beddd2a319a491819ca7c412445 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba4.pm
+++ b/pidl/lib/Parse/Pidl/Samba4.pm
@@ -12,7 +12,7 @@ require Exporter;
 use Parse::Pidl::Util qw(has_property is_constant);
 use Parse::Pidl::NDR qw(GetNextLevel);
 use Parse::Pidl::Typelist qw(mapTypeName scalar_is_reference);
 use Parse::Pidl::Util qw(has_property is_constant);
 use Parse::Pidl::NDR qw(GetNextLevel);
 use Parse::Pidl::Typelist qw(mapTypeName scalar_is_reference);

-use Parse::Pidl qw(fatal);
+use Parse::Pidl qw(fatal error);

 use strict;
 
 use vars qw($VERSION);
 use strict;
 
 use vars qw($VERSION);


@@ -69,7 +69,7 @@ sub NumStars($;$)
                $n++;
        }
 
                $n++;
        }
 

-       fatal($e->{ORIGINAL}, "Too few pointers $n < $d") if ($n < $d);
+       error($e->{ORIGINAL}, "Too few pointers $n < $d") if ($n < $d);

 
        $n -= $d;
 
 
        $n -= $d;