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/Calendar.pm
View file

@ -1,6 +1,8 @@
package WebGUI::Asset::Wobject::Calendar;
$VERSION = "0.0.0";
use strict;
our $VERSION = "0.0.0";
####################################################################
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
@ -12,8 +14,6 @@ $VERSION = "0.0.0";
# http://www.plainblack.com info@plainblack.com
####################################################################
use strict;
use Tie::IxHash;
use WebGUI::Utility;

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;

4
lib/WebGUI/Asset/Wobject/ProjectManager.pm
View file

@ -1,6 +1,7 @@
package WebGUI::Asset::Wobject::ProjectManager;
$VERSION = "1.0.0";
use strict;
our $VERSION = "1.0.0";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
@ -12,7 +13,6 @@ $VERSION = "1.0.0";
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use DateTime;
use Tie::IxHash;
use WebGUI::International;

4
lib/WebGUI/Asset/Wobject/TimeTracking.pm
View file

@ -1,6 +1,7 @@
package WebGUI::Asset::Wobject::TimeTracking;
$VERSION = "1.0.0";
use strict;
our $VERSION = "1.0.0";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
@ -12,7 +13,6 @@ $VERSION = "1.0.0";
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use DateTime;
use Tie::IxHash;
use WebGUI::International;