Commit 964f07f5 authored by Nicholas Bamber's avatar Nicholas Bamber

[svn-upgrade] new version libdata-serializer-perl (0.57)

parent b4b9a160
Revision history for Perl extension Data::Serializer
0.57 Mon Jan 17 2011
- Updated remainder of test suite to armor against XML::Simple dependency problems that I first
attempted to fix in 0.53. Only modified tests, no change to module code
Thanks to the cpantesters automated reporting for finding this.
0.56 Fri Jan 14 2011
- Moved store/retrieve internals to Data::Serializer::Persistent (internals only)
This defers the inclusion of IO::File to happen only if store or retrieve is called
......
......@@ -17,7 +17,7 @@ name: Data-Serializer
provides:
Data::Serializer:
file: lib/Data/Serializer.pm
version: 0.56
version: 0.57
Data::Serializer::Bencode:
file: lib/Data/Serializer/Bencode.pm
version: 0.03
......@@ -105,4 +105,4 @@ requires:
IO::File: 0
resources:
license: http://dev.perl.org/licenses/
version: 0.56
version: 0.57
......@@ -7,7 +7,7 @@ use vars qw($VERSION);
use Carp;
require 5.004 ;
$VERSION = '0.56';
$VERSION = '0.57';
#Global cache of modules we've loaded
my %_MODULES;
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -19,6 +19,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -20,6 +20,22 @@ foreach my $serializer (keys %serializers) {
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
......@@ -19,6 +19,21 @@ foreach my $serializer (keys %serializers) {
push(@serializers, $serializer);
}
}
#
# XML::Simple has an internal dependency of either XML::SAX or XML::Parser, so we need to test for those
# too, and if we don't find them, act like XML::Simple is not installed
#
if (grep {/^XML::Simple$/} @serializers) {
if (eval "require XML::SAX") {
$T->msg("Found XML::SAX to support XML::Simple");
} elsif (eval "require XML::Parser") {
$T->msg("Found XML::Parser to support XML::Simple");
} else {
$T->msg("Could not find XML::Parser or XML::SAX, removing XML::Simple") unless (@serializers);
@serializers = grep {!/^XML::Simple$/} @serializers;
}
}
$T->msg("No serializers found!!") unless (@serializers);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment