Changeset 3703 for lang/perl/Archer

Show
Ignore:
Timestamp:
12/28/07 11:23:44 (11 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:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Archer/Makefile.PL

    r3700 r3703  
    2929requires 'IO::Prompt'; 
    3030requires 'Kwalify'; 
     31requires 'File::HomeDir'; 
    3132 
    3233use_test_base; 

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

    r3702 r3703  
    55use Term::ReadLine; 
    66use POSIX; 
     7use File::HomeDir; 
     8use Path::Class; 
    79 
    810sub new { 
    … …  
    1719    my $term = Term::ReadLine->new('Archer'); 
    1820 
    19     my $HISTFILE = ( $ENV{HOME} || ( ( getpwuid($<) )[7] ) ) 
    20         . "/.archer_shell_history"; 
     21    my $HISTFILE = file( File::HomeDir->my_home, "/.archer_shell_history" ); 
    2122    my $HISTSIZE = 256; 
    2223