Attachment 83204 Details for Bug 118892 – p5-SGML-Parser-OpenSP-0.991.patch

[patch] p5-SGML-Parser-OpenSP-0.991.patch

p5-SGML-Parser-OpenSP-0.991.patch (text/plain), 9.22 KB, created by Naram Qashat on 2007-12-20 16:50:00 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Naram Qashat

Created: 2007-12-20 16:50:00 UTC

Size: 9.22 KB

patch

obsolete

>diff -ruN --exclude=CVS /usr/ports/textproc/p5-SGML-Parser-OpenSP/Makefile /kirby/shared/ports/p5-SGML-Parser-OpenSP/Makefile
>--- /usr/ports/textproc/p5-SGML-Parser-OpenSP/Makefile	Sat Jul 28 15:31:50 2007
>+++ /kirby/shared/ports/p5-SGML-Parser-OpenSP/Makefile	Thu Dec 20 11:44:16 2007
>@@ -6,12 +6,11 @@
> #
> 
> PORTNAME=	SGML-Parser-OpenSP
>-PORTVERSION=	0.100r1
>+PORTVERSION=	0.991
> CATEGORIES=	textproc perl5
> MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
> MASTER_SITE_SUBDIR=	SGML
> PKGNAMEPREFIX=	p5-
>-DISTNAME=	${PORTNAME}-0.99
> 
> MAINTAINER=	cyberbotx@cyberbotx.com
> COMMENT=	Parse SGML documents using OpenSP
>diff -ruN --exclude=CVS /usr/ports/textproc/p5-SGML-Parser-OpenSP/distinfo /kirby/shared/ports/p5-SGML-Parser-OpenSP/distinfo
>--- /usr/ports/textproc/p5-SGML-Parser-OpenSP/distinfo	Sat Jul 28 15:31:50 2007
>+++ /kirby/shared/ports/p5-SGML-Parser-OpenSP/distinfo	Thu Dec 20 11:40:14 2007
>@@ -1,3 +1,3 @@
>-MD5 (SGML-Parser-OpenSP-0.99.tar.gz) = cb08669ed566ef4070671cf57aa749e3
>-SHA256 (SGML-Parser-OpenSP-0.99.tar.gz) = 4822da26240b6feb2e435d84053377eb421afda584439b16da0f31f8fcfddc1b
>-SIZE (SGML-Parser-OpenSP-0.99.tar.gz) = 33761
>+MD5 (SGML-Parser-OpenSP-0.991.tar.gz) = 9a4513ee2a42458a083f20a36f0373a4
>+SHA256 (SGML-Parser-OpenSP-0.991.tar.gz) = d37b7f7c0de6b315a2057e57e923e1f7a9a0aa858af9b3c47c074e3d3e2d0fc7
>+SIZE (SGML-Parser-OpenSP-0.991.tar.gz) = 34783
>diff -ruN --exclude=CVS /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-MANIFEST /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-MANIFEST
>--- /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-MANIFEST	Sat Jul 28 15:31:51 2007
>+++ /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-MANIFEST	Wed Dec 31 19:00:00 1969
>@@ -1,12 +0,0 @@
>---- MANIFEST.orig	2007-07-29 03:17:26.000000000 +0800
>-+++ MANIFEST	2007-07-29 03:17:35.000000000 +0800
>-@@ -23,6 +23,9 @@
>- t/17splitmessage.t
>- t/18halt.t
>- t/19refcounting.t
>-+t/20passfd.t
>-+t/21parsestring.t
>-+t/22mwarnings.t
>- t/98podsyn.t
>- t/99podcov.t
>- lib/SGML/Parser/OpenSP.pm
>diff -ruN --exclude=CVS /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-OpenSP.xs /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-OpenSP.xs
>--- /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-OpenSP.xs	Sat Jul 28 15:31:51 2007
>+++ /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-OpenSP.xs	Wed Dec 31 19:00:00 1969
>@@ -1,11 +0,0 @@
>---- OpenSP.xs.orig	2007-07-29 02:53:09.000000000 +0800
>-+++ OpenSP.xs	2007-07-29 02:53:39.000000000 +0800
>-@@ -445,7 +445,7 @@
>-     AV* av = (AV*)rv;
>-     I32 len = av_len(av);
>- 
>--    for (I32 i = 0; i < len; ++i)
>-+    for (I32 i = 0; i <= len; ++i)
>-     {
>-         SV** svp = av_fetch(av, i, 0);
>- 
>diff -ruN --exclude=CVS /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-t-20passfd.t /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-t-20passfd.t
>--- /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-t-20passfd.t	Sat Jul 28 15:31:51 2007
>+++ /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-t-20passfd.t	Wed Dec 31 19:00:00 1969
>@@ -1,50 +0,0 @@
>---- /dev/null  Fri Jul 27 20:05:08 2007
>-+++ t/20passfd.t       Fri Jul 27 20:06:50 2007
>-X@@ -0,0 +1,46 @@
>-+# 20passfd.t -- ...
>-+#
>-+# $Id: 20passfd.t,v 1.4 2005/08/14 18:07:19 hoehrmann Exp $
>-+
>-+use strict;
>-+use warnings;
>-+use Test::More tests => 7;
>-+use Test::Exception;
>-+use File::Spec qw();
>-+
>-+use constant NO_DOCTYPE   => File::Spec->catfile('samples', 'no-doctype.xml');
>-+use constant TEST_CATALOG => File::Spec->catfile('samples', 'test.soc');
>-+
>-+BEGIN { use_ok('SGML::Parser::OpenSP') };
>-+require_ok('SGML::Parser::OpenSP');
>-+my $p = SGML::Parser::OpenSP->new;
>-+isa_ok($p, 'SGML::Parser::OpenSP');
>-+
>-+sub TestHandler20::new { bless{ok1=>0},shift }
>-+sub TestHandler20::start_element { shift->{ok1}++ }
>-+
>-+sub TestHandler21::new { bless{ok1=>0},shift }
>-+sub TestHandler21::start_element { shift->{ok1}++ }
>-+
>-+#
>-+# Check pass as filename (should work on all platforms).
>-+$p = SGML::Parser::OpenSP->new;
>-+my $h1 = TestHandler20->new;
>-+$p->handler($h1);
>-+$p->pass_file_descriptor(0);
>-+lives_ok { $p->parse_string("<no-doctype></no-doctype>") } 'parse_string with temp file name';
>-+is($h1->{ok1}, 1, "temp file name handler called");
>-+undef $p;
>-+
>-+#
>-+# Check pass as file descriptor (not on Win32).
>-+SKIP: {
>-+  skip 'passing fds for temp files not supported on Win32', 2 if $^O eq 'MSWin32';
>-+  $p = SGML::Parser::OpenSP->new;
>-+  my $h2 = TestHandler21->new;
>-+  $p->handler($h2);
>-+  $p->pass_file_descriptor(1);
>-+  lives_ok { $p->parse_string("<no-doctype></no-doctype>") } 'parse by fd';
>-+  is($h2->{ok1}, 1, "temp file descriptor handler called");
>-+  undef $p;
>-+}
>-
>diff -ruN --exclude=CVS /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-t-21parsestring.t /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-t-21parsestring.t
>--- /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-t-21parsestring.t	Sat Jul 28 15:31:51 2007
>+++ /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-t-21parsestring.t	Wed Dec 31 19:00:00 1969
>@@ -1,69 +0,0 @@
>---- /dev/null  Fri Jul 27 20:05:08 2007
>-+++ t/21parsestring.t  Fri Jul 27 20:06:55 2007
>-X@@ -0,0 +1,65 @@
>-+# 06parseliteral.t -- ...
>-+#
>-+# $Id: 21parsestring.t,v 1.1 2006/03/06 08:51:59 tbe Exp $
>-+
>-+use strict;
>-+use warnings;
>-+use Test::More tests => 13;
>-+use Test::Exception;
>-+use File::Spec qw();
>-+
>-+use constant NO_DOCTYPE   => File::Spec->catfile('samples', 'no-doctype.xml');
>-+use constant TEST_CATALOG => File::Spec->catfile('samples', 'test.soc');
>-+
>-+BEGIN { use_ok('SGML::Parser::OpenSP') };
>-+require_ok('SGML::Parser::OpenSP');
>-+my $p = SGML::Parser::OpenSP->new;
>-+isa_ok($p, 'SGML::Parser::OpenSP');
>-+
>-+#########################################################
>-+## Parse using ->parse_string().
>-+#########################################################
>-+
>-+sub TestHandler1::new { bless{ok1=>0,ok2=>0,ok3=>0,ok4=>0,ok5=>0,
>-+                              ok6=>0,ok7=>0,ok8=>0,ok9=>0,oka=>0},shift }
>-+sub TestHandler1::start_element {
>-+    my $s = shift;
>-+    my $e = shift;
>-+
>-+    return unless defined $s;
>-+    return unless defined $e;
>-+
>-+    $s->{ok1}++ if UNIVERSAL::isa($s, 'TestHandler1');
>-+
>-+    # Name
>-+    $s->{ok2}++ if exists $e->{Name};
>-+    $s->{ok3}++ if $e->{Name} =~ /no-doctype/i;
>-+
>-+    # Attributes
>-+    $s->{ok4}++ if exists $e->{Attributes};
>-+    $s->{ok5}++ if UNIVERSAL::isa($e->{Attributes}, "HASH");
>-+    $s->{ok6}++ if scalar(keys(%{$_[1]->{Attributes}})) == 0;
>-+
>-+    # Included
>-+    $s->{ok7}++ if exists $e->{Included};
>-+    $s->{ok8}++ if $e->{Included} == 0;
>-+
>-+    # ContentType
>-+    $s->{ok9}++ if exists $e->{ContentType};
>-+}
>-+
>-+my $h1 = TestHandler1->new;
>-+
>-+$p->handler($h1);
>-+lives_ok { $p->parse_string("<no-doctype></no-doctype>") }
>-+  'parsing with parse_string()';
>-+
>-+ok($h1->{ok1}, 'self to handler');
>-+ok($h1->{ok2}, 'has name');
>-+ok($h1->{ok3}, 'proper name');
>-+ok($h1->{ok4}, 'has attrs');
>-+ok($h1->{ok5}, 'attrs hash ref');
>-+ok($h1->{ok6}, 'proper attrs');
>-+ok($h1->{ok7}, 'has included');
>-+ok($h1->{ok8}, 'included == 0');
>-+ok($h1->{ok9}, 'has content type');
>-
>diff -ruN --exclude=CVS /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-t-22mwarnings.t /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-t-22mwarnings.t
>--- /usr/ports/textproc/p5-SGML-Parser-OpenSP/files/patch-t-22mwarnings.t	Sat Jul 28 15:31:51 2007
>+++ /kirby/shared/ports/p5-SGML-Parser-OpenSP/files/patch-t-22mwarnings.t	Wed Dec 31 19:00:00 1969
>@@ -1,71 +0,0 @@
>---- /dev/null  Fri Jul 27 20:05:08 2007
>-+++ t/22mwarnings.t    Fri Jul 27 20:06:59 2007
>-@@ -0,0 +1,67 @@
>-+# 10errors.t -- ...
>-+#
>-+# $Id: 22mwarnings.t,v 1.1 2006/11/07 11:14:13 hoehrmann Exp $
>-+
>-+use strict;
>-+use warnings;
>-+use Test::More tests => 7;
>-+use Test::Exception;
>-+use File::Spec qw();
>-+
>-+use constant NO_DOCTYPE   => File::Spec->catfile('samples', 'no-doctype.xml');
>-+use constant TEST_CATALOG => File::Spec->catfile('samples', 'test.soc');
>-+
>-+BEGIN { use_ok('SGML::Parser::OpenSP') };
>-+require_ok('SGML::Parser::OpenSP');
>-+my $p = SGML::Parser::OpenSP->new;
>-+isa_ok($p, 'SGML::Parser::OpenSP');
>-+
>-+#########################################################
>-+## Error reporting
>-+#########################################################
>-+
>-+sub TestHandler5::new         { bless{ok=>0},shift }
>-+sub TestHandler5::error
>-+{
>-+    return unless @_ == 2;
>-+    $_[0]->{ok}++ if $_[1]->{Message} =~ /:8:7:W:/;
>-+}
>-+
>-+my $h5 = TestHandler5->new;
>-+$p->catalogs(TEST_CATALOG);
>-+$p->warnings('xml');
>-+$p->handler($h5);
>-+lives_ok { $p->parse("<LITERAL>" . <<"__DOC__");
>-+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
>-+    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
>-+<html xmlns="http://www.w3.org/1999/xhtml">
>-+<head>
>-+<title></title>
>-+</head>
>-+<body>
>-+<p>foo & bar</p>
>-+</body>
>-+</html>
>-+__DOC__
>-+} 'ampersand as data';
>-+
>-+is($h5->{ok}, 1, 'ampersand as data generates warning');
>-+
>-+# special case
>-+$p->warnings(qw/non-sgml-char-ref valid no-duplicate xml/);
>-+
>-+lives_ok { $p->parse("<LITERAL>" . <<"__DOC__");
>-+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
>-+    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
>-+<html xmlns="http://www.w3.org/1999/xhtml">
>-+<head>
>-+<title></title>
>-+</head>
>-+<body>
>-+<p>foo & bar</p>
>-+</body>
>-+</html>
>-+__DOC__
>-+} 'ampersand as data';
>-+
>-+is($h5->{ok}, 2, 'ampersand as data generates warning');
>-

Actions: View | Diff

Attachments on bug 118892: 83204