[pathc] Sys:Syslog.pm::syslog() - Better error message

Message-ID: <ekzzowp1.fsf@blue.sea.net>

p4raw-id: //depot/perl@20533

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index 2b283db..1aec33f 100644 (file)
--- 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;