diff options
| author | fukachan <fukachan> | 2003-06-04 15:16:24 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-06-04 15:16:24 +0000 |
| commit | 59bf43f79020b558ecfb6e8c71642b4c8a5ef88c (patch) | |
| tree | f042df74c7847cae69b57f45c44bbe6388f6a0eb /img/lib/IM/Log.pm | |
| parent | bf112251f43696e90733e499e7401bbeecd31d3d (diff) | |
| download | fml8-im-145.tar.gz fml8-im-145.tar.bz2 fml8-im-145.zip | |
im-145im-145
Diffstat (limited to 'img/lib/IM/Log.pm')
| -rw-r--r-- | img/lib/IM/Log.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/img/lib/IM/Log.pm b/img/lib/IM/Log.pm index fb2e479a..0a124c3f 100644 --- a/img/lib/IM/Log.pm +++ b/img/lib/IM/Log.pm @@ -5,10 +5,10 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Mar 22, 2003 +### Revised: Jun 1, 2003 ### -my $PM_VERSION = "IM::Log.pm version 20030322(IM144)"; +my $PM_VERSION = "IM::Log.pm version 20030601(IM145)"; package IM::Log; require 5.003; @@ -90,8 +90,10 @@ sub log_action($$$$;@) { } my $file = expand_path($main::Log_file); - return unless ($file =~ /^(\S+)$/); - $file = $1; # to pass through taint check + return unless ($file =~ /(.+)/); + if ($> != 0) { + $file = $1; # to pass through taint check + } &msg_mode(1); unless (im_open(\*HISTORY, ">>$file")) { im_warn("can't open history file: $file ($!)\n"); |