r5024 - in /packages/libconfig-auto-perl/branches/upstream/current:
Changes META.yml lib/Config/Auto.pm
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Fri Apr 13 09:09:38 UTC 2007
Author: eloy
Date: Fri Apr 13 09:09:38 2007
New Revision: 5024
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5024
Log:
[svn-upgrade] Integrating new upstream version, libconfig-auto-perl (0.20)
Modified:
packages/libconfig-auto-perl/branches/upstream/current/Changes
packages/libconfig-auto-perl/branches/upstream/current/META.yml
packages/libconfig-auto-perl/branches/upstream/current/lib/Config/Auto.pm
Modified: packages/libconfig-auto-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libconfig-auto-perl/branches/upstream/current/Changes?rev=5024&op=diff
==============================================================================
--- packages/libconfig-auto-perl/branches/upstream/current/Changes (original)
+++ packages/libconfig-auto-perl/branches/upstream/current/Changes Fri Apr 13 09:09:38 2007
@@ -1,3 +1,9 @@
+0.20 Sat Apr 7 15:13:51 2007
+================================
+ - Address #25732: Close filehandles after parsing
+ Config::Auto wasn't closing it's filehandles after
+ reading from them. Now it does.
+
0.18 Wed Jun 28 12:22:29 2006
================================
- Address #19938 which states that calling parse()
Modified: packages/libconfig-auto-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libconfig-auto-perl/branches/upstream/current/META.yml?rev=5024&op=diff
==============================================================================
--- packages/libconfig-auto-perl/branches/upstream/current/META.yml (original)
+++ packages/libconfig-auto-perl/branches/upstream/current/META.yml Fri Apr 13 09:09:38 2007
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Config-Auto
-version: 0.18
+version: 0.20
version_from: lib/Config/Auto.pm
installdirs: site
requires:
Modified: packages/libconfig-auto-perl/branches/upstream/current/lib/Config/Auto.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libconfig-auto-perl/branches/upstream/current/lib/Config/Auto.pm?rev=5024&op=diff
==============================================================================
--- packages/libconfig-auto-perl/branches/upstream/current/lib/Config/Auto.pm (original)
+++ packages/libconfig-auto-perl/branches/upstream/current/lib/Config/Auto.pm Fri Apr 13 09:09:38 2007
@@ -10,7 +10,7 @@
use vars qw[$VERSION $DisablePerl $Untaint $Format];
-$VERSION = '0.18';
+$VERSION = '0.20';
$DisablePerl = 0;
$Untaint = 0;
@@ -56,15 +56,15 @@
if (!defined $args{format}) {
# OK, let's take a look at you.
my @data;
- open CONFIG, $file or croak "$file: $!";
+ open my $config, $file or croak "$file: $!";
if (-s $file > 1024*100) {
# Just read in a bit.
- while (<CONFIG>) {
+ while (<$config>) {
push @data, $_;
last if $. >= 50;
}
} else {
- @data = <CONFIG>;
+ @data = <$config>;
}
my %scores = score(\@data);
@@ -221,9 +221,9 @@
sub colon_sep {
my $file = shift;
- open IN, $file or die $!;
+ open my $in, $file or die $!;
my %config;
- while (<IN>) {
+ while (<$in>) {
next if /^\s*#/;
/^\s*(.*?)\s*:\s*(.*)/ or next;
my ($k, $v) = ($1, $2);
@@ -285,9 +285,9 @@
sub equal_sep {
my $file = shift;
- open IN, $file or die $!;
+ open my $in, $file or die $!;
my %config;
- while (<IN>) {
+ while (<$in>) {
next if /^\s*#/;
/^\s*(.*?)\s*=\s*(.*)\s*$/ or next;
my ($k, $v) = ($1, $2);
@@ -306,9 +306,9 @@
sub space_sep {
my $file = shift;
- open IN, $file or die $!;
+ open my $in, $file or die $!;
my %config;
- while (<IN>) {
+ while (<$in>) {
next if /^\s*#/;
/\s*(\S+)\s+(.*)/ or next;
my ($k, $v) = ($1, $2);
@@ -513,18 +513,17 @@
BIND9 and irssi file format parsers currently don't exist. It would be
good to add support for C<mutt> and C<vim> style C<set>-based RCs.
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-config-auto at rt.cpan.orgE<gt>.
+
=head1 AUTHOR
-This module by Jos Boumans, C<kane at cpan.org>.
-
-=head1 LICENSE
-
-This module is
-copyright (c) 2003-2006 Jos Boumans E<lt>kane at cpan.orgE<gt>.
-All rights reserved.
-
-This library is free software;
-you may redistribute and/or modify it under the same
-terms as Perl itself.
+This module by Jos Boumans E<lt>kane at cpan.orgE<gt>.
+
+=head1 COPYRIGHT
+
+This library is free software; you may redistribute and/or modify it
+under the same terms as Perl itself.
=cut
More information about the Pkg-perl-cvs-commits
mailing list