Then maybe something is wrong with either how HTML::Restrict works or with how you inspect the results.
Have you made sure that Perl loads the correct versions of HTML::Restrict in both cases?
print $INC{'HTML/Restrict.pm'}; print HTML::Restrict->VERSION;
Are you certain that your loop even gets entered? You loop over various (submitted form) values, but maybe they are not even there? Maybe retest with a more minimal test package:
package Dynamic::Transform::zim_iwe_filtern; use strict; use warnings; use HTML::Restrict; use Carp; sub new { my ($proto, $config) = @_; my $class = ref($proto) || $proto; bless {}, $class; } sub transform { my ($self, $metainfo) = @_; ## test value my $value = qq|<html> <head> <title>Dies ist der Titel</title> </head> <body> <p>Hier kommt der Inhalt</p> </body> </html> |; my $hr = HTML::Restrict->new() or die "Error at HTML::Restrict->ne +w: $!"; $value = $hr->process($value) or die "Error at process: $!"; #$metainfo->setValues($key."_DEBUG", $value); warn "Have [$value] after HTML::Restrict"; } 1;
Also, how certain are you that your CMS actually has reloaded the modified version of your code? The safest way is to restart the HTTP server, but also consider having a version number in your package that you output into a log file to make certain that the code you're looking at is also the code you are running.
In reply to Re^3: HTML::Restrict works on the command line, but not the web server
by Corion
in thread HTML::Restrict works on the command line, but not the web server
by Zimtobi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |