pidl: use perl warnings

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

diff --git a/pidl/lib/Parse/Pidl.pm b/pidl/lib/Parse/Pidl.pm
index c2c9463d03f9445b65dc27913b53ff18d954c897..e4c39b3d063afe22e65e4479b0a9028110acfa41 100644 (file)
--- a/pidl/lib/Parse/Pidl.pm
+++ b/pidl/lib/Parse/Pidl.pm
@@ -12,7 +12,7 @@ require Exporter;
 @EXPORT_OK = qw(warning error fatal $VERSION);
 
 use strict;
-
+use warnings;
 use vars qw ( $VERSION );
 
 $VERSION = '0.02';
@@ -20,13 +20,19 @@ $VERSION = '0.02';
 sub warning
 {
        my ($l,$m) = @_;
-       print STDERR "$l->{FILE}:$l->{LINE}: warning: $m\n";
+       if ($l) {
+               print STDERR "$l->{FILE}:$l->{LINE}: ";
+       }
+       print STDERR "warning: $m\n";
 }
 
 sub error
 {
        my ($l,$m) = @_;
-       print STDERR "$l->{FILE}:$l->{LINE}: error: $m\n";
+       if ($l) {
+               print STDERR "$l->{FILE}:$l->{LINE}: ";
+       }
+       print STDERR "error: $m\n";
 }
 
 sub fatal($$)