r25475 - in /trunk/libxml-sablot-perl: MANIFEST META.yml Makefile.PL Processor/Processor.h Sablotron.pm debian/changelog t/dom.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Sep 19 22:13:53 UTC 2008
Author: gregoa
Date: Fri Sep 19 22:13:50 2008
New Revision: 25475
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25475
Log:
New upstream release.
Added:
trunk/libxml-sablot-perl/META.yml
- copied unchanged from r25474, branches/upstream/libxml-sablot-perl/current/META.yml
Modified:
trunk/libxml-sablot-perl/MANIFEST
trunk/libxml-sablot-perl/Makefile.PL
trunk/libxml-sablot-perl/Processor/Processor.h
trunk/libxml-sablot-perl/Sablotron.pm
trunk/libxml-sablot-perl/debian/changelog
trunk/libxml-sablot-perl/t/dom.t
Modified: trunk/libxml-sablot-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sablot-perl/MANIFEST?rev=25475&op=diff
==============================================================================
--- trunk/libxml-sablot-perl/MANIFEST (original)
+++ trunk/libxml-sablot-perl/MANIFEST Fri Sep 19 22:13:50 2008
@@ -33,3 +33,4 @@
t/dom.t
t/domHandler.t
t/sablot.t
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libxml-sablot-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sablot-perl/Makefile.PL?rev=25475&op=diff
==============================================================================
--- trunk/libxml-sablot-perl/Makefile.PL (original)
+++ trunk/libxml-sablot-perl/Makefile.PL Fri Sep 19 22:13:50 2008
@@ -65,12 +65,18 @@
unless ($expat_libpath) {
# Test for existence of libexpat
my $found = 0;
+ if ($] >= 5.008001) {
+ require ExtUtils::Liblist; # Buggy before this
+ my ($list) = ExtUtils::Liblist->ext('-lexpat');
+ $found = 1 if $list =~ /-lexpat\b/;
+ } else {
foreach (split(/\s+/, $Config{libpth})) {
if (-f "$_/libexpat." . $Config{so}) {
$found = 1;
last;
}
}
+ }
unless ($found) {
die <<'Expat_Not_Installed;';
@@ -122,12 +128,18 @@
unless ($sablot_libpath) {
# Test for existence of libexpat
my $found = 0;
+ if ($] >= 5.008001) {
+ require ExtUtils::Liblist; # Buggy before this
+ my ($list) = ExtUtils::Liblist->ext('-lsablot');
+ $found = 1 if $list =~ /-lsablot\b/;
+ } else {
foreach (split(/\s+/, $Config{libpth})) {
if (-f "$_/libsablot." . $Config{so}) {
$found = 1;
last;
}
}
+ }
unless ($found) {
die <<'Sablot_Not_Installed;';
@@ -177,12 +189,18 @@
my $js_found = undef;
unless ($js_libpath) {
# Test for existence of libexpat
+ if ($] >= 5.008001) {
+ require ExtUtils::Liblist; # Buggy before this
+ my ($list) = ExtUtils::Liblist->ext("-l$js_libname");
+ $js_found = 1 if $list =~ /-l\Q$js_libname\E\b/;
+ } else {
foreach (split(/\s+/, $Config{libpth})) {
if (-f "$_/lib$js_libname." . $Config{so}) {
$js_found = 1;
last;
}
}
+ }
}
our $libs = ' ';
@@ -225,7 +243,7 @@
}
@ARGV = @replacement_args;
-my $O_FILES = 'common.o';
+my $O_FILES = "common$Config{obj_ext}";
WriteMakefile(
NAME => 'XML::Sablotron',
@@ -238,8 +256,8 @@
DIR => [qw( DOM Situation SXP Processor )],
LIBS => $libs,
OBJECT => q( $(O_FILES) ),
- OPTIMIZE => ' ',
- CCFLAGS => '-g',
+# OPTIMIZE => ' ',
+# CCFLAGS => '-g',
depend => { 'Sablotron.c' => q(DOM/DOM.h DOM/DOM.xsh Processor/Processor.h Processor/Processor.xsh Processor/Handler_stubs.h SXP/SXP.h SXP/SXP.xsh Situation/Situation.h Situation/Situation.xsh Situation/DOMhandler_stubs.h ) },
@extras,
);
Modified: trunk/libxml-sablot-perl/Processor/Processor.h
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sablot-perl/Processor/Processor.h?rev=25475&op=diff
==============================================================================
--- trunk/libxml-sablot-perl/Processor/Processor.h (original)
+++ trunk/libxml-sablot-perl/Processor/Processor.h Fri Sep 19 22:13:50 2008
@@ -397,7 +397,7 @@
else
XPUSHs(&sv_undef);
XPUSHs((SV*)handle);
- XPUSHs(sv_2mortal(newSViv(*byteCount - 1)));
+ XPUSHs(sv_2mortal(newSViv(*byteCount)));
PUTBACK;
perl_call_sv((SV*)GvCV(gv), G_SCALAR);
@@ -409,7 +409,7 @@
char *aux;
aux = SvPV(value, len);
*byteCount = len < *byteCount ? len : *byteCount;
- strncpy(buffer, aux, *byteCount + 1);
+ strncpy(buffer, aux, *byteCount);
} else {
*byteCount = 0;
}
Modified: trunk/libxml-sablot-perl/Sablotron.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sablot-perl/Sablotron.pm?rev=25475&op=diff
==============================================================================
--- trunk/libxml-sablot-perl/Sablotron.pm (original)
+++ trunk/libxml-sablot-perl/Sablotron.pm Fri Sep 19 22:13:50 2008
@@ -47,7 +47,7 @@
@ISA = qw( Exporter DynaLoader );
-$VERSION = '1.0';
+$VERSION = '1.01';
my @functions = qw (
SablotProcessStrings
Modified: trunk/libxml-sablot-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sablot-perl/debian/changelog?rev=25475&op=diff
==============================================================================
--- trunk/libxml-sablot-perl/debian/changelog (original)
+++ trunk/libxml-sablot-perl/debian/changelog Fri Sep 19 22:13:50 2008
@@ -1,4 +1,4 @@
-libxml-sablot-perl (1.0-3) UNRELEASED; urgency=low
+libxml-sablot-perl (1.01-1) UNRELEASED; urgency=low
* Take over for the Debian Perl Group; Closes: #354500 -- ITA
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
@@ -8,6 +8,8 @@
<packages at qa.debian.org>); added: /me to Uploaders.
* Add debian/watch.
+ * New upstream release.
+
-- gregor herrmann <gregoa at debian.org> Fri, 19 Sep 2008 22:52:38 +0200
libxml-sablot-perl (1.0-2) unstable; urgency=low
Modified: trunk/libxml-sablot-perl/t/dom.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sablot-perl/t/dom.t?rev=25475&op=diff
==============================================================================
--- trunk/libxml-sablot-perl/t/dom.t (original)
+++ trunk/libxml-sablot-perl/t/dom.t Fri Sep 19 22:13:50 2008
@@ -313,6 +313,7 @@
$e->appendChild($doc->createElementNS("uri_a","a:name"));
print ($e->lastChild()->nodeName() eq "a:name" ? "ok $test\n" : "not ok $test\n");
+
# test namespaceURI
$test++;
print ($e->lastChild()->namespaceURI() eq "uri_a" ? "ok $test\n" : "not ok $test\n");
@@ -430,7 +431,7 @@
# cleanup code
-print $doc->toString($sit), "\n";
+#print $doc->toString($sit), "\n";
$doc->freeDocument();
undef $doc;
undef $doc1;
More information about the Pkg-perl-cvs-commits
mailing list