diff options
| author | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:52:59 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:52:59 +0000 |
| commit | 2b69d0c297460bce3a8d8eefe2bd0de0a6451872 (patch) | |
| tree | 918d4cf76b228b2cec26aede54e1c35e6b024c25 /lib/syslog.pl | |
| parent | 32c2e4fbb7ba898d9e58e8d2292dd45b8692070d (diff) | |
| download | perl-2b69d0c297460bce3a8d8eefe2bd0de0a6451872.tar.gz | |
perl 4.0 patch 31: patch #20, continued
See patch #20.
Diffstat (limited to 'lib/syslog.pl')
| -rw-r--r-- | lib/syslog.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/syslog.pl b/lib/syslog.pl index d5f9812684..842414e4c7 100644 --- a/lib/syslog.pl +++ b/lib/syslog.pl @@ -2,6 +2,9 @@ # syslog.pl # # $Log: syslog.pl,v $ +# Revision 4.0.1.1 92/06/08 13:48:05 lwall +# patch20: new warning for ambiguous use of unary operators +# # Revision 4.0 91/03/20 01:26:24 lwall # 4.0 baseline. # @@ -164,7 +167,7 @@ sub xlate { $name =~ y/a-z/A-Z/; $name = "LOG_$name" unless $name =~ /^LOG_/; $name = "syslog'$name"; - eval &$name || -1; + eval(&$name) || -1; } sub connect { |