sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-11 05:18:09 +03:00
Code

pidl: Allow location argument to warning() and error() to be undef, in case it is

Browse Source 
not known.
This commit is contained in:
Jelmer Vernooij 2008-12-22 03:21:10 +01:00
parent 2c58c9497c
commit 7ebc7e677d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pidl/lib/Parse/Pidl.pm
View 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($$)