scip/Config-General
1
0
Fork 0
mirror of https://codeberg.org/scip/Config-General.git synced 2025-12-17 12:41:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

2.18

Browse Source 
- 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
This commit is contained in:
Thomas von Dein
2009-10-10 16:27:31 +00:00
parent 2402b0bb7b
commit c5f2a035d9
3 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Changelog
View File

@@ -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 2.17
- added File::Spec support which makes the modules more portable - added File::Spec support which makes the modules more portable
(i.e. on win32 systems), (i.e. on win32 systems),

8
General.pm
View File

@@ -13,12 +13,12 @@
package Config::General; package Config::General;
use FileHandle; use FileHandle;
use File::Spec::Functions; use File::Spec::Functions qw(splitpath file_name_is_absolute);
use strict; use strict;
use Carp; use Carp;
use Exporter; use Exporter;
$Config::General::VERSION = "2.17"; $Config::General::VERSION = "2.18";
use vars qw(@ISA @EXPORT); use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter); @ISA = qw(Exporter);
@@ -230,7 +230,7 @@ sub new {
$self->{configfile} = $self->{ConfigFile}; $self->{configfile} = $self->{ConfigFile};
if ( file_name_is_absolute($self->{ConfigFile}) ) { if ( file_name_is_absolute($self->{ConfigFile}) ) {
# look if is is an absolute path and save the basename if it is absolute # 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 $path =~ s#/$##; # remove eventually existing trailing slash
$self->{configpath} = $path; $self->{configpath} = $path;
} }
@@ -1805,7 +1805,7 @@ Thomas Linden <tom@daemon.de>
=head1 VERSION =head1 VERSION
2.17 2.18
=cut =cut

2
README
View File

@@ -104,4 +104,4 @@ AUTHOR
VERSION VERSION
2.17 2.18