diff options
| author | fukachan <fukachan> | 2010-02-28 06:37:24 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2010-02-28 06:37:24 +0000 |
| commit | e314db340e6b4afc2dc9b9a6745dea18f3cc0844 (patch) | |
| tree | 8aa695a4228ff273f17d123f540d22d901492cd3 /img/lib/IM/GetPass.pm | |
| parent | ddc1ed19d3f9d8d8840bea932174a68749550330 (diff) | |
| download | fml8-im-150.tar.gz fml8-im-150.tar.bz2 fml8-im-150.zip | |
import im-150im-150
Diffstat (limited to 'img/lib/IM/GetPass.pm')
| -rw-r--r-- | img/lib/IM/GetPass.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/img/lib/IM/GetPass.pm b/img/lib/IM/GetPass.pm index 7f2df60c..3f77eda8 100644 --- a/img/lib/IM/GetPass.pm +++ b/img/lib/IM/GetPass.pm @@ -5,10 +5,10 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 30, 1997 -### Revised: Jul 4, 2004 +### Revised: Apr 23, 2007 ### -my $PM_VERSION = "IM::GetPass.pm version 20031028(IM146)"; +my $PM_VERSION = "IM::GetPass.pm version 20100215(IM150)"; package IM::GetPass; require 5.003; @@ -135,7 +135,7 @@ sub connect_agent($) { my $realuser = im_getlogin(); unless ($realuser) { - im_warn("pwagent: can not get login name\n") unless ($surpresserror); + im_warn("pwagent: cannot get login name\n") unless ($surpresserror); return ''; } my $dir = &pwagent_tmp_path() . "-$realuser"; @@ -155,7 +155,7 @@ sub connect_agent($) { my $name = "$dir/pw"; unless (-S $name) { - im_warn("pwagent: can not access to socket: $name\n") + im_warn("pwagent: cannot access to socket: $name\n") unless ($surpresserror); return ''; } |