From: Jari Aalto <jari.aalto@poboxes.com>
Date: Wed, 6 Aug 2003 14:24:42 +0000 (+0300)
Subject: [pathc] Sys:Syslog.pm::syslog() - Better error message
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78ac6fa82a1cb8d01c25b723520e44c170ead798;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;