From c5f2a035d97ca090a3c80b16fae22e7dadb6b531 Mon Sep 17 00:00:00 2001 From: Thomas von Dein Date: Sat, 10 Oct 2009 16:27:31 +0000 Subject: [PATCH] 2.18 - fixed Bug #2325 (rt.cpan.org). The subs exported by File::Spec will now imported explicitly. - fixed warning about double my'ed variable $dummi, changed it to undef because it was unused anyway. git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@44 be1acefe-a474-0410-9a34-9b3221f2030f --- Changelog | 6 ++++++ General.pm | 8 ++++---- README | 2 +- 3 files changed, 11 insertions(+), 5 deletions(-) diff --git a/Changelog b/Changelog index 943f318..94a221f 100644 --- a/Changelog +++ b/Changelog @@ -1,3 +1,9 @@ + 2.18 + - fixed Bug #2325 (rt.cpan.org). The subs exported by File::Spec + will now imported explicitly. + - fixed warning about double my'ed variable $dummi, changed it + to undef because it was unused anyway. + 2.17 - added File::Spec support which makes the modules more portable (i.e. on win32 systems), diff --git a/General.pm b/General.pm index 1f83df6..238f8b8 100644 --- a/General.pm +++ b/General.pm @@ -13,12 +13,12 @@ package Config::General; use FileHandle; -use File::Spec::Functions; +use File::Spec::Functions qw(splitpath file_name_is_absolute); use strict; use Carp; use Exporter; -$Config::General::VERSION = "2.17"; +$Config::General::VERSION = "2.18"; use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @@ -230,7 +230,7 @@ sub new { $self->{configfile} = $self->{ConfigFile}; if ( file_name_is_absolute($self->{ConfigFile}) ) { # look if is is an absolute path and save the basename if it is absolute - my ($dummi, $path, $dummi) = splitpath($self->{ConfigFile}); + my (undef, $path, undef) = splitpath($self->{ConfigFile}); $path =~ s#/$##; # remove eventually existing trailing slash $self->{configpath} = $path; } @@ -1805,7 +1805,7 @@ Thomas Linden =head1 VERSION -2.17 +2.18 =cut diff --git a/README b/README index 719cd52..4837d1b 100644 --- a/README +++ b/README @@ -104,4 +104,4 @@ AUTHOR VERSION - 2.17 \ No newline at end of file + 2.18 \ No newline at end of file