diff options
| author | Chuck Norris (mars.fritz.box) <paul@buetow.org> | 2014-08-28 09:36:37 +0200 |
|---|---|---|
| committer | Chuck Norris (mars.fritz.box) <paul@buetow.org> | 2014-08-28 09:36:37 +0200 |
| commit | 11b1896cf142b490323a91b04344a20e7a25c9f4 (patch) | |
| tree | 35ebdc0392d143029d3d9bea01a7325a8107022f /Xerl/Page/Content.pm | |
| parent | b16cca8b3944c071a15ba57820804cfb6da9cbdb (diff) | |
un perltig
Diffstat (limited to 'Xerl/Page/Content.pm')
| -rw-r--r-- | Xerl/Page/Content.pm | 9 |
1 files changed, 5 insertions, 4 deletions
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/</</g; |