[Bast-commits] r5423 - in trunk/Devel-REPL: . lib/Devel lib/Devel/REPL/Plugin

[oliver at dev.catalyst.perl.org]

Author: oliver
Date: 2009-02-07 17:07:03 +0000 (Sat, 07 Feb 2009)
New Revision: 5423

Modified:
   trunk/Devel-REPL/Changes
   trunk/Devel-REPL/Makefile.PL
   trunk/Devel-REPL/lib/Devel/REPL.pm
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/ReadLineHistory.pm
Log:
make ReadLineHistory history file location portable
bump version for release


Modified: trunk/Devel-REPL/Changes
===================================================================
--- trunk/Devel-REPL/Changes	2009-02-07 15:18:11 UTC (rev 5422)
+++ trunk/Devel-REPL/Changes	2009-02-07 17:07:03 UTC (rev 5423)
@@ -1,3 +1,6 @@
+1.3.3
+  - make Nopaste attribute lazy
+  - make ReadLineHistory history file location portable
 1.3.2
   - make plugins be M::I features so dependencies are optional
   - resolve rt.cpan#42506 readdir might fail

Modified: trunk/Devel-REPL/Makefile.PL
===================================================================
--- trunk/Devel-REPL/Makefile.PL	2009-02-07 15:18:11 UTC (rev 5422)
+++ trunk/Devel-REPL/Makefile.PL	2009-02-07 17:07:03 UTC (rev 5423)
@@ -3,6 +3,7 @@
 use inc::Module::Install 0.76;
 
 name 'Devel-REPL';
+perl_version '5.008001';
 all_from 'lib/Devel/REPL.pm';
 
 install_script 'script/re.pl';

Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/ReadLineHistory.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/ReadLineHistory.pm	2009-02-07 15:18:11 UTC (rev 5422)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/ReadLineHistory.pm	2009-02-07 17:07:03 UTC (rev 5423)
@@ -6,9 +6,12 @@
 package Devel::REPL::Plugin::ReadLineHistory;
 
 use Devel::REPL::Plugin;
+use File::HomeDir;
+use File::Spec;
 
-my $hist_file=$ENV{PERLREPL_HISTFILE} ||
-             (($ENV{HOME} || (getpwuid($<))[7]) . "/.perlreplhist");
+my $hist_file = $ENV{PERLREPL_HISTFILE} ||
+    File::Spec->catfile(File::HomeDir->my_home, '.perlreplhist');
+
 # HISTLEN should probably be in a config file to stop people accidentally
 # truncating their history if they start the program and forget to set
 # PERLREPL_HISTLEN

Modified: trunk/Devel-REPL/lib/Devel/REPL.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL.pm	2009-02-07 15:18:11 UTC (rev 5422)
+++ trunk/Devel-REPL/lib/Devel/REPL.pm	2009-02-07 17:07:03 UTC (rev 5423)
@@ -5,7 +5,7 @@
 use namespace::clean -except => [ 'meta' ];
 use 5.008001; # backwards compat, doesn't warn like 5.8.1
 
-our $VERSION = '1.003002'; # 1.3.2
+our $VERSION = '1.003003'; # 1.3.3
 
 with 'MooseX::Object::Pluggable';