From b16cca8b3944c071a15ba57820804cfb6da9cbdb Mon Sep 17 00:00:00 2001 From: "Chuck Norris (mars.fritz.box)" Date: Thu, 28 Aug 2014 09:33:11 +0200 Subject: refactor --- Xerl/XML/Reader.pm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'Xerl/XML/Reader.pm') diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index ae5a07b..88c727a 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # @@ -18,8 +18,8 @@ use Xerl::Base; use Xerl::XML::Element; use Xerl::XML::SAXHandler; -sub open($) { - my Xerl::XML::Reader $self = shift; +sub open { + my $self = shift; if ( -f $self->get_path() ) { return 0; @@ -29,14 +29,12 @@ sub open($) { } } -sub parse() { - my Xerl::XML::Reader $self = shift; +sub parse { + my $self = shift; my $sax_handler = Xerl::XML::SAXHandler->new(); my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler ); - $parser->parse_uri( $self->get_path() ); - $self->set_root( $sax_handler->{xerl}{root} ); return undef; -- cgit v1.2.3 From 11b1896cf142b490323a91b04344a20e7a25c9f4 Mon Sep 17 00:00:00 2001 From: "Chuck Norris (mars.fritz.box)" Date: Thu, 28 Aug 2014 09:36:37 +0200 Subject: un perltig --- Xerl/XML/Reader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Xerl/XML/Reader.pm') diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index 88c727a..ce7b31a 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -30,7 +30,7 @@ sub open { } sub parse { - my $self = shift; + my $self = shift; my $sax_handler = Xerl::XML::SAXHandler->new(); my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler ); -- cgit v1.2.3 From fe5a81dc73149765ba75202c29684144c080accd Mon Sep 17 00:00:00 2001 From: "Paul Buetow (uranus)" Date: Sat, 21 Feb 2015 10:15:38 +0000 Subject: Fix for Perl 5.18 on FreeBSD. Manually add PurePerl SAX Parser --- Xerl/XML/Reader.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Xerl/XML/Reader.pm') diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index ce7b31a..5aba6c9 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -30,7 +30,9 @@ sub open { } sub parse { - my $self = shift; + my $self = shift; + + XML::SAX->add_parser(q(XML::SAX::PurePerl)); my $sax_handler = Xerl::XML::SAXHandler->new(); my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler ); -- cgit v1.2.3 From 6dd2e1db76e167693f62027bab9a04857b693980 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (europa)" Date: Sun, 31 May 2015 16:57:05 +0100 Subject: use https --- Xerl/XML/Reader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Xerl/XML/Reader.pm') diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index 5aba6c9..1acfe14 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -1,6 +1,6 @@ # Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow # -# E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org +# E-Mail: xerl@dev.buetow.org WWW: https://xerl.buetow.org # # This is free software, you may use it and distribute it under the same # terms as Perl itself. -- cgit v1.2.3 From 2103e642583ad50c06c66025ffa10b790e0cfea8 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (europa)" Date: Sun, 31 May 2015 16:58:10 +0100 Subject: Add 2015 --- Xerl/XML/Reader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Xerl/XML/Reader.pm') diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index 1acfe14..a744025 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow +# Xerl (c) 2005-2011, 2013-2015 by Paul Buetow # # E-Mail: xerl@dev.buetow.org WWW: https://xerl.buetow.org # -- cgit v1.2.3