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/Page/Content.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'Xerl/Page/Content.pm') diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm index 05a206d..c091c70 100644 --- a/Xerl/Page/Content.pm +++ b/Xerl/Page/Content.pm @@ -72,10 +72,10 @@ sub insertrules { } sub _insertrules { - my $self = $_[0]; - my $rules = $_[1]; - my $element = $_[2]; - my $config = $self->get_config(); + my $self = $_[0]; + my $rules = $_[1]; + my $element = $_[2]; + my $config = $self->get_config(); my $nonewlines = 0; # Don't interate through the XML childs if we have a leaf node. @@ -109,6 +109,7 @@ sub _insertrules { } elsif ( lc $name eq 'inject' ) { + # Fetch via LWP::Simple my $got = get($text); $got =~ s/