diff options
| author | Jari Aalto <jari.aalto@poboxes.com> | 2003-08-06 17:24:42 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-06 18:39:49 +0000 |
| commit | 78ac6fa82a1cb8d01c25b723520e44c170ead798 (patch) | |
| tree | db014cc0cb0fabc8f481d7fe6226008fc1168383 /ext/Sys | |
| parent | 324b23145b17e1acc327e170d31ebe7b00858b10 (diff) | |
| download | perl-78ac6fa82a1cb8d01c25b723520e44c170ead798.tar.gz | |
[pathc] Sys:Syslog.pm::syslog() - Better error message
Message-ID: <ekzzowp1.fsf@blue.sea.net>
p4raw-id: //depot/perl@20533
Diffstat (limited to 'ext/Sys')
| -rw-r--r-- | ext/Sys/Syslog/Syslog.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm index 2b283dbc81..1aec33f859 100644 --- a/ext/Sys/Syslog/Syslog.pm +++ b/ext/Sys/Syslog/Syslog.pm @@ -251,7 +251,8 @@ sub syslog { local(@words, $num, $numpri, $numfac, $sum); local($facility) = $facility; # may need to change temporarily. - croak "syslog: expected both priority and mask" unless $mask && $priority; + croak "syslog: expecting argument \$priority" unless $priority; + croak "syslog: expecting argument \$format" unless $mask; @words = split(/\W+/, $priority, 2);# Allow "level" or "level|facility". undef $numpri; |