r5024 - in /packages/libconfig-auto-perl/branches/upstream/current: Changes META.yml lib/Config/Auto.pm

[eloy at users.alioth.debian.org]

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