Changeset 3703

Timestamp:

12/28/07 11:23:44 (13 months ago)

Author:

tokuhirom

Message:

r3656@mnk (orig r306): tokuhiro | 2007-03-05 21:15:40 -0800
use File::HomeDir?.

Location:

lang/perl/Archer

Files:

• Makefile.PL (modified) (1 diff)
• lib/Archer/Shell.pm (modified) (2 diffs)

lang/perl/Archer/Makefile.PL

@@ -29 +29 @@
 requires 'IO::Prompt';
 requires 'Kwalify';
+requires 'File::HomeDir';
 
 use_test_base;

lang/perl/Archer/lib/Archer/Shell.pm

@@ -5 +5 @@
 use Term::ReadLine;
 use POSIX;
+use File::HomeDir;
+use Path::Class;
 
 sub new {
@@ -17 +19 @@
     my $term = Term::ReadLine->new('Archer');
 
-    my $HISTFILE = ( $ENV{HOME} || ( ( getpwuid($<) )[7] ) )
-        . "/.archer_shell_history";
+    my $HISTFILE = file( File::HomeDir->my_home, "/.archer_shell_history" );
     my $HISTSIZE = 256;