lib/util: charset modules do not exist any more
[amitay/samba.git] / pidl / lib / Parse / Pidl.pm
index c2c9463d03f9445b65dc27913b53ff18d954c897..40e3673908e0c54d680ec3667a6cec5083b0c93e 100644 (file)
@@ -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($$)