r49048 - in /trunk/libconfig-json-perl: ./ authors.t/ debian/ lib/Config/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Dec 21 02:51:56 UTC 2009
Author: jawnsy-guest
Date: Mon Dec 21 02:51:50 2009
New Revision: 49048
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49048
Log:
integrate new upstream release
Added:
trunk/libconfig-json-perl/LICENSE
- copied unchanged from r49046, branches/upstream/libconfig-json-perl/current/LICENSE
trunk/libconfig-json-perl/dist.ini
- copied unchanged from r49046, branches/upstream/libconfig-json-perl/current/dist.ini
trunk/libconfig-json-perl/t/release-pod-coverage.t
- copied unchanged from r49046, branches/upstream/libconfig-json-perl/current/t/release-pod-coverage.t
trunk/libconfig-json-perl/t/release-pod-syntax.t
- copied unchanged from r49046, branches/upstream/libconfig-json-perl/current/t/release-pod-syntax.t
Removed:
trunk/libconfig-json-perl/.gitignore
trunk/libconfig-json-perl/authors.t/
Modified:
trunk/libconfig-json-perl/Changes
trunk/libconfig-json-perl/MANIFEST
trunk/libconfig-json-perl/META.yml
trunk/libconfig-json-perl/Makefile.PL
trunk/libconfig-json-perl/README
trunk/libconfig-json-perl/debian/changelog
trunk/libconfig-json-perl/debian/control
trunk/libconfig-json-perl/debian/rules
trunk/libconfig-json-perl/lib/Config/JSON.pm
trunk/libconfig-json-perl/t/00.load.t
trunk/libconfig-json-perl/t/Config.t
Modified: trunk/libconfig-json-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/Changes?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/Changes (original)
+++ trunk/libconfig-json-perl/Changes Mon Dec 21 02:51:50 2009
@@ -1,4 +1,10 @@
Revision history for Config-JSON
+
+1.5000 2009-12-19
+ - Converted Config::JSON to use Moose.
+ - Removed requirements for version and Class::InsideOut.
+ - Swiched to Dist::Zilla to build this package.
+ - Removed authors.t since I never use them anyway.
1.4.0
Fixed resetting permissions of file on write
Modified: trunk/libconfig-json-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/MANIFEST?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/MANIFEST (original)
+++ trunk/libconfig-json-perl/MANIFEST Mon Dec 21 02:51:50 2009
@@ -1,14 +1,15 @@
Changes
+LICENSE
MANIFEST
META.yml
Makefile.PL
README
+dist.ini
lib/Config/JSON.pm
t/00.load.t
t/Config.t
t/Duplicate.t
t/Include.t
t/Wildcard.t
-authors.t/perlcritic.t
-authors.t/pod-coverage.t
-authors.t/pod.t
+t/release-pod-coverage.t
+t/release-pod-syntax.t
Modified: trunk/libconfig-json-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/META.yml?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/META.yml (original)
+++ trunk/libconfig-json-perl/META.yml Mon Dec 21 02:51:50 2009
@@ -1,18 +1,18 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Config::JSON
-version: 1.4.0
-version_from: lib/Config/JSON.pm
-installdirs: site
+---
+abstract: 'A JSON based config file system.'
+author:
+ - 'JT Smith <RIZEN at cpan.org>'
+generated_by: 'Dist::Zilla version 1.093400'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Config-JSON
requires:
- List::Util: 1.19
- Class::InsideOut: 1.06
- JSON: 2.12
- Test::More: 0.7
- Test::Deep: 0.095
- File::Temp: 0.18
- version: 0.7203
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
-
+ File::Temp: 0.18
+ JSON: 2.16
+ List::Util: 1.19
+ Moose: 0.93
+ Test::Deep: 0.095
+ Test::More: 0.7
+version: 1.5000
Modified: trunk/libconfig-json-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/Makefile.PL?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/Makefile.PL (original)
+++ trunk/libconfig-json-perl/Makefile.PL Mon Dec 21 02:51:50 2009
@@ -1,22 +1,27 @@
+
use strict;
use warnings;
+
+
+
use ExtUtils::MakeMaker;
WriteMakefile(
- NAME => 'Config::JSON',
- AUTHOR => 'JT Smith <jt at plainblack.com>',
- VERSION_FROM => 'lib/Config/JSON.pm',
- ABSTRACT_FROM => 'lib/Config/JSON.pm',
- PL_FILES => {},
- PREREQ_PM => {
- 'List::Util' => 1.19,
- 'JSON' => 2.12,
- 'Class::InsideOut' => 1.06,
- 'Test::More' => 0.7,
- 'Test::Deep' => 0.095,
- 'File::Temp' => 0.18,
- 'version' => 0.7203,
- },
- dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
- clean => { FILES => 'Config-JSON-*' },
+ DISTNAME => 'Config-JSON',
+ NAME => 'Config::JSON',
+ AUTHOR => "JT\ Smith\ \<RIZEN\@cpan\.org\>",
+ ABSTRACT => "A\ JSON\ based\ config\ file\ system\.",
+ VERSION => '1.5000',
+ EXE_FILES => [ qw() ],
+ (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
+ PREREQ_PM => {
+ "Test::More" => '0.7',
+ "List::Util" => '1.19',
+ "File::Temp" => '0.18',
+ "JSON" => '2.16',
+ "Test::Deep" => '0.095',
+ "Moose" => '0.93',
+ },
+ test => {TESTS => 't/*.t'}
);
+
Modified: trunk/libconfig-json-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/README?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/README (original)
+++ trunk/libconfig-json-perl/README Mon Dec 21 02:51:50 2009
@@ -1,34 +1,12 @@
-Config-JSON version 1.4.0
-
-A JSON based config file parser/writer.
-
-INSTALLATION
-
-To install this module, run the following commands:
-
- perl Makefile.PL
- make
- make test
- make install
+This archive contains the distribution Config-JSON, version
+1.5000:
-DEPENDENCIES
+ A JSON based config file system.
-JSON 2.0 or higher
-List::Util
-Class::InsideOut
-File::Temp
-version
+This software is copyright (c) 2009 by Plain Black Corporation.
-The following are only used for tests:
-Test::More
-Test::Deep
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
-
-COPYRIGHT AND LICENCE
-
-Copyright (C) 2006-2009, Plain Black Corporation
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
Modified: trunk/libconfig-json-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/debian/changelog?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/debian/changelog (original)
+++ trunk/libconfig-json-perl/debian/changelog Mon Dec 21 02:51:50 2009
@@ -1,3 +1,9 @@
+libconfig-json-perl (1.5000-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 20 Dec 2009 18:36:58 -0500
+
libconfig-json-perl (1.4.0-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libconfig-json-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/debian/control?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/debian/control (original)
+++ trunk/libconfig-json-perl/debian/control Mon Dec 21 02:51:50 2009
@@ -1,10 +1,10 @@
Source: libconfig-json-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl,
+Build-Depends: debhelper (>= 7.0.50)
+Build-Depends-Indep: perl, libtest-pod-coverage-perl, libtest-pod-perl,
libclass-insideout-perl (>= 1.06), libjson-perl (>= 2.12),
- perl (>= 5.10) | libversion-perl, libtest-deep-perl (>= 0.095)
+ perl (>= 5.10) | libversion-perl, libtest-deep-perl (>= 0.095),
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Ernesto Hernández-Novich (USB) <emhn at usb.ve>,
Jose Luis Rivas <ghostbar38 at gmail.com>, Jonathan Yu <jawnsy at cpan.org>,
@@ -16,9 +16,8 @@
Package: libconfig-json-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends},
- libclass-insideout-perl (>= 1.06), libjson-perl (>= 2.12),
- perl (>= 5.10) | libversion-perl, libtest-deep-perl (>= 0.095)
+Depends: ${perl:Depends}, ${misc:Depends}, perl (>= 5.10) | libversion-perl,
+ libclass-insideout-perl, libtest-deep-perl (>= 0.095), libjson-perl (>= 2.12)
Description: parser for JSON-based configuration files
Config::JSON is a Perl module capable of parsing and writing configuration
files written in JavaScript Object Notation (JSON). It supports arbitrary
Modified: trunk/libconfig-json-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/debian/rules?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/debian/rules (original)
+++ trunk/libconfig-json-perl/debian/rules Mon Dec 21 02:51:50 2009
@@ -2,3 +2,6 @@
%:
dh $@
+
+override_dh_auto_test:
+ RELEASE_TESTING=1 dh_auto_test
Modified: trunk/libconfig-json-perl/lib/Config/JSON.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/lib/Config/JSON.pm?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/lib/Config/JSON.pm (original)
+++ trunk/libconfig-json-perl/lib/Config/JSON.pm Mon Dec 21 02:51:50 2009
@@ -1,20 +1,83 @@
package Config::JSON;
-
-use warnings;
-use strict;
-use Carp;
-use Class::InsideOut qw(readonly id register private);
+our $VERSION = '1.5000';
+
+use Moose;
use File::Spec;
use JSON 2.0;
use List::Util;
-use version; our $VERSION = qv('1.4.0');
use constant FILE_HEADER => "# config-file-type: JSON 1\n";
-readonly getFilePath => my %filePath; # path to config file
-readonly isInclude => my %isInclude; # is an include file
-private config => my %config; # in memory config file
-readonly getIncludes => my %includes; # keeps track of any included config files
+#-------------------------------------------------------------------
+has config => (
+ is => 'rw',
+ default => sub {{}},
+);
+
+#-------------------------------------------------------------------
+sub getFilePath {
+ my $self = shift;
+ return $self->pathToFile;
+}
+
+#-------------------------------------------------------------------
+has pathToFile => (
+ is => 'ro',
+ required => 1,
+ trigger => sub {
+ my ($self, $pathToFile, $old) = @_;
+ if (open(my $FILE, "<", $pathToFile)) {
+ # slurp
+ local $/ = undef;
+ my $json = <$FILE>;
+ close($FILE);
+ my $conf = eval { JSON->new->relaxed->utf8->decode($json); };
+ confess "Couldn't parse JSON in config file '$pathToFile'\n" unless ref $conf;
+ $self->config($conf);
+
+ # process includes
+ my @includes = map { glob $_ } @{ $self->get('includes') || [] };
+ my @loadedIncludes;
+ foreach my $include (@includes) {
+ push @loadedIncludes, __PACKAGE__->new(pathToFile=>$include, isInclude=>1);
+ }
+ $self->includes(\@loadedIncludes);
+ }
+ else {
+ confess "Cannot read config file: ".$pathToFile;
+ }
+ },
+);
+
+#-------------------------------------------------------------------
+has isInclude => (
+ is => 'ro',
+ default => 0,
+);
+
+#-------------------------------------------------------------------
+has includes => (
+ is => 'rw',
+ default => sub {[]},
+);
+
+#-------------------------------------------------------------------
+sub getIncludes {
+ my $self = shift;
+ return $self->includes;
+}
+
+#-------------------------------------------------------------------
+around BUILDARGS => sub {
+ my $orig = shift;
+ my $class = shift;
+ if ( @_ == 1 && ! ref $_[0] ) {
+ return $class->$orig(pathToFile => $_[0]);
+ }
+ else {
+ return $class->$orig(@_);
+ }
+};
#-------------------------------------------------------------------
sub addToArray {
@@ -73,9 +136,9 @@
close($FILE);
}
else {
- carp "Can't write to config file ".$filename;
- }
- return $class->new($filename);
+ warn "Can't write to config file ".$filename;
+ }
+ return $class->new(pathToFile=>$filename);
}
#-------------------------------------------------------------------
@@ -83,12 +146,12 @@
my ($self, $param) = @_;
# inform the includes
- foreach my $include (@{$includes{id $self}}) {
+ foreach my $include (@{$self->includes}) {
$include->delete($param);
}
# find the directive
- my $directive = $config{id $self};
+ my $directive = $self->config;
my @parts = $self->splitKeyParts($param);
my $lastPart = pop @parts;
foreach my $part (@parts) {
@@ -129,17 +192,17 @@
if (defined $property) {
# look in this config
- my $value = $config{id $self};
+ my $value = $self->config;
foreach my $part ($self->splitKeyParts($property)) {
$value = eval{$value->{$part}};
if ($@) {
- croak "Can't access $property. $@";
+ confess "Can't access $property. $@";
}
}
return $value if (defined $value);
# look through includes
- foreach my $include (@{$includes{id $self}}) {
+ foreach my $include (@{$self->includes}) {
my $value = $include->get($property);
return $value if (defined $value);
}
@@ -150,50 +213,18 @@
# they want the whole properties list
my %whole = ();
- foreach my $include (@{$includes{id $self}}) {
+ foreach my $include (@{$self->includes}) {
%whole = (%whole, %{$include->get});
}
- %whole = (%whole, %{$config{id $self}});
+ %whole = (%whole, %{$self->config});
return \%whole;
}
#-------------------------------------------------------------------
sub getFilename {
my $self = shift;
- my @path = split "/", $self->getFilePath;
+ my @path = split "/", $self->pathToFile;
return pop @path;
-}
-
-#-------------------------------------------------------------------
-sub new {
- my ($class, $pathToFile, $options) = @_;
- if (open(my $FILE, "<", $pathToFile)) {
- # slurp
- local $/ = undef;
- my $json = <$FILE>;
- close($FILE);
- my $conf;
- eval {
- $conf = JSON->new->relaxed->utf8->decode($json);
- };
- croak "Couldn't parse JSON in config file '$pathToFile'\n" unless ref $conf;
- my $self = register($class);
- my $id = id $self;
- $filePath{$id} = $pathToFile;
- $config{$id} = $conf;
- $isInclude{$id} = $options->{isInclude};
-
- # process includes
- my @includes = map { glob $_ } @{ $self->get('includes') || [] };
- foreach my $include (@includes) {
- push @{$includes{$id}}, $class->new($include, {isInclude=>1});
- }
-
- return $self;
- }
- else {
- croak "Cannot read config file: ".$pathToFile;
- }
}
#-------------------------------------------------------------------
@@ -201,7 +232,7 @@
my ($self, $property, $value) = @_;
# see if the directive exists in this config
- my $directive = $config{id $self};
+ my $directive = $self->config;
my @parts = $self->splitKeyParts($property);
my $numParts = scalar @parts;
for (my $i=0; $i < $numParts; $i++) {
@@ -222,14 +253,14 @@
}
# see if any of the includes have this directive
- foreach my $include (@{$includes{id $self}}) {
+ foreach my $include (@{$self->includes}) {
my $found = $include->set($property, $value);
return 1 if ($found);
}
# let's create the directive new in this config if it's not an include
unless ($self->isInclude) {
- $directive = $config{id $self};
+ $directive = $self->config;
my $lastPart = pop @parts;
foreach my $part (@parts) {
unless (exists $directive->{$part}) {
@@ -257,16 +288,16 @@
#-------------------------------------------------------------------
sub write {
my $self = shift;
- my $realfile = $self->getFilePath;
+ my $realfile = $self->pathToFile;
# convert data to json
- my $json = JSON->new->pretty->utf8->canonical->encode($config{id $self});
+ my $json = JSON->new->pretty->utf8->canonical->encode($self->config);
my $to_write = FILE_HEADER . "\n" . $json;
my $needed_bytes = length $to_write;
# open as read/write
- open my $fh, '+<:raw', $realfile or croak "Unable to open $realfile for write: $!";
+ open my $fh, '+<:raw', $realfile or confess "Unable to open $realfile for write: $!";
my $current_bytes = (stat $fh)[7];
# shrink file if needed
if ($needed_bytes < $current_bytes) {
@@ -280,7 +311,7 @@
sysseek $fh, 0, 0;
truncate $fh, $current_bytes;
close $fh;
- croak "Unable to expand $realfile: $!";
+ confess "Unable to expand $realfile: $!";
}
sysseek $fh, 0, 0;
seek $fh, 0, 0;
@@ -292,18 +323,13 @@
}
-1; # Magic true value required at end of module
-__END__
-
=head1 NAME
Config::JSON - A JSON based config file system.
-
=head1 VERSION
-This document describes Config::JSON version 1.4.0
-
+version 1.5000
=head1 SYNOPSIS
@@ -311,6 +337,7 @@
my $config = Config::JSON->create($pathToFile);
my $config = Config::JSON->new($pathToFile);
+ my $config = Config::JSON->new(pathToFile=>$pathToFile);
my $element = $config->get($directive);
@@ -323,7 +350,7 @@
$config->addToHash($directive, $key, $value);
$config->addToArray($directive, $value);
- my $path = $config->getFilePath;
+ my $path = $config->pathToFile;
my $filename = $config->getFilename;
=head2 Example Config File
@@ -535,15 +562,15 @@
-=head2 getFilePath ( )
-
-Returns the filename and path for this config.
-
-
-
-=head2 getIncludes ( )
-
-Returns an array reference of Config::JSON objects that are files included by this config.
+=head2 pathToFile ( )
+
+Returns the filename and path for this config. May also be called as C<getFilePath> for backward campatibility sake.
+
+
+
+=head2 includes ( )
+
+Returns an array reference of Config::JSON objects that are files included by this config. May also be called as C<getIncludes> for backward compatibility sake.
=head2 new ( pathToFile )
@@ -589,7 +616,6 @@
Writes the file to the filesystem. Normally you'd never need to call this as it's called automatically by the other methods when a change occurs.
-
=head1 DIAGNOSTICS
=over
@@ -608,77 +634,33 @@
=back
-
-=head1 CONFIGURATION AND ENVIRONMENT
-
-Config::JSON requires no configuration files or environment variables.
-
-
-=head1 DEPENDENCIES
+=head1 PREREQS
+
+L<JSON> L<Moose> L<List::Util> L<Test::More> L<Test::Deep>
+
+=head1 SUPPORT
=over
-=item JSON 2.0 or higher
-
-=item List::Util
-
-=item Class::InsideOut
-
-=item Test::More
-
-=item Test::Deep
-
-=item version
+=item Repository
+
+L<http://github.com/plainblack/Config-JSON>
+
+=item Bug Reports
+
+L<http://rt.cpan.org/Public/Dist/Display.html?Name=Config-JSON>
=back
-
-=head1 INCOMPATIBILITIES
-
-None reported.
-
-
-=head1 BUGS AND LIMITATIONS
-
-No bugs have been reported.
-
-Please report any bugs or feature requests to
-C<bug-config-json at rt.cpan.org>, or through the web interface at
-L<http://rt.cpan.org>.
-
-
=head1 AUTHOR
-JT Smith C<< <jt-at-plainblack-dot-com> >>
-
-
-=head1 LICENCE AND COPYRIGHT
-
-Copyright (c) 2006-2009, Plain Black Corporation L<http://www.plainblack.com/>. All rights reserved.
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself. See L<perlartistic>.
-
-
-=head1 DISCLAIMER OF WARRANTY
-
-BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
-EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
-ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
-YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
-NECESSARY SERVICING, REPAIR, OR CORRECTION.
-
-IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
-LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
-OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
-THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
-RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
-FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
-SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
+JT Smith <jt-at-plainblack-dot-com>
+
+=head1 LEGAL
+
+Config::JSON is Copyright 2009 Plain Black Corporation (L<http://www.plainblack.com/>) and is licensed under the same terms as Perl itself.
+
+=cut
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
Modified: trunk/libconfig-json-perl/t/00.load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/t/00.load.t?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/t/00.load.t (original)
+++ trunk/libconfig-json-perl/t/00.load.t Mon Dec 21 02:51:50 2009
@@ -3,6 +3,5 @@
use_ok( 'Config::JSON' );
-diag( "Testing Config::JSON $Config::JSON::VERSION" );
Modified: trunk/libconfig-json-perl/t/Config.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-json-perl/t/Config.t?rev=49048&op=diff
==============================================================================
--- trunk/libconfig-json-perl/t/Config.t (original)
+++ trunk/libconfig-json-perl/t/Config.t Mon Dec 21 02:51:50 2009
@@ -131,7 +131,7 @@
# deleteFromHash
$config->deleteFromHash("stats","TEST");
-my $hash = $config->get("stats");
+$hash = $config->get("stats");
ok(!(exists $hash->{TEST}), "deleteFromHash()");
$config->deleteFromHash("this/that/hash", "three");
$hash = $config->get("this/that/hash");
More information about the Pkg-perl-cvs-commits
mailing list