r17576 - in /branches/upstream/libconfig-inihash-perl/current: IniHash.pm META.yml

[roberto at users.alioth.debian.org]

Author: roberto
Date: Sun Mar 16 02:32:14 2008
New Revision: 17576

URL: http://svn.debian.org/wsvn/?sc=1&rev=17576
Log:
[svn-upgrade] Integrating new upstream version, libconfig-inihash-perl (3.00.00)

Modified:
    branches/upstream/libconfig-inihash-perl/current/IniHash.pm
    branches/upstream/libconfig-inihash-perl/current/META.yml

Modified: branches/upstream/libconfig-inihash-perl/current/IniHash.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libconfig-inihash-perl/current/IniHash.pm?rev=17576&op=diff
==============================================================================
--- branches/upstream/libconfig-inihash-perl/current/IniHash.pm (original)
+++ branches/upstream/libconfig-inihash-perl/current/IniHash.pm Sun Mar 16 02:32:14 2008
@@ -1,16 +1,16 @@
 package Config::IniHash;
 
+use 5.8.0;
 use Carp;
 use strict;
 use Symbol;
-use IO::Scalar;
 
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 @ISA = qw(Exporter);
 @EXPORT = qw(&ReadINI &WriteINI &PrintINI);
 @EXPORT_OK = qw(&ReadINI &WriteINI &PrintINI &AddDefaults &ReadSection);
-$VERSION = '2.9.0';
+$VERSION = '3.00.00';
 
 if (0) { # for PerlApp/PerlSvc/PerlCtrl/Perl2Exe
 	require 'Hash/WithDefaults.pm';
@@ -150,12 +150,10 @@
 	if (ref $file) {
 		my $ref = ref $file;
 		if ($ref eq 'SCALAR') {
-			$IN = gensym();
-			tie *$IN, 'IO::Scalar', $file;
+			open $IN, '<', $file; # will read from the referenced scalar
 		} elsif ($ref eq 'ARRAY') {
 			my $data = join "\n", map {chomp;$_} @$file;
-			$IN = gensym();
-			tie *$IN, 'IO::Scalar', \$data;
+			open $IN, '<', \$data; # will read from the referenced scalar
 		} elsif ($ref eq 'HASH') {
 			croak "ReadINI cannot accept a HASH reference as it's parameter!";
 		} else {
@@ -327,8 +325,8 @@
 		tie %$hash, $opt{class}
 			if $opt{class};
 	}
-	my $IN = gensym();
-	tie *$IN, 'IO::Scalar', \$text;
+
+	open my $IN, '<', \$text;
 
 	my ($lc,$uc) = ( $opt{forName} eq 'lc', $opt{forName} eq 'uc');
 	my $forValue = $opt{forValue};
@@ -368,7 +366,7 @@
 
 Config::IniHash - Perl extension for reading and writing INI files
 
-version 2.9.0
+version 3.00.00
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libconfig-inihash-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libconfig-inihash-perl/current/META.yml?rev=17576&op=diff
==============================================================================
--- branches/upstream/libconfig-inihash-perl/current/META.yml (original)
+++ branches/upstream/libconfig-inihash-perl/current/META.yml Sun Mar 16 02:32:14 2008
@@ -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-IniHash
-version:      2.9.0
+version:      3.00.00
 version_from: IniHash.pm
 installdirs:  site
 requires: