oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

no code allowed before use strict. PBP/429. This check found a bug in Asset::Wobject::HttpProxy::Parse.pm

Browse source
This commit is contained in:
Colin Kuskie 2007-12-05 16:55:40 +00:00
parent 08fbd46d28
commit 98863256ea
9 changed files with 26 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Wobject/HttpProxy/Parse.pm
View file

@ -1,5 +1,7 @@
package WebGUI::Asset::Wobject::HttpProxy::Parse;
use strict;
=head1 LEGAL
-------------------------------------------------------------------
@ -70,7 +72,7 @@ sub new {
$self->{assetUrl} = shift;
my $pfilter = shift;
$pfiler =~ s/\r//g;
$pfilter =~ s/\r//g;
my @patterns = split(/\n/,$pfilter);
$self->{patternFilter} = \@patterns;
@ -166,7 +168,7 @@ sub start {
$val =~ s/\n//g; # Bugfix 757068
#Determine if pattern should not be rewritten
$rewritePattern = 0;
my $rewritePattern = 0;
foreach my $pattern (@{$self->{patternFilter}}) {
if($val =~ m/$pattern/i) {
$rewritePattern = 1;