Permalink
Browse files

fix perl critics

  • Loading branch information...
1 parent 741e0af commit dc481e1529ad94c95074c7dde15cad30b57dbe45 @sni committed Nov 1, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 Webinject/lib/Webinject.pm
@@ -342,7 +342,7 @@ sub _run_test_case {
my($uri)=URI->new($case->{url});
my($host)=$uri->host();
$useragent->default_header('Host' => $uri->host());
- $case->{url}=~s/$host/$self->{'config'}->{'realserverip'}/;
+ $case->{url}=~s/\Q$host\E/$self->{'config'}->{'realserverip'}/mx;
}
if( $self->{'gui'} ) { $self->_gui_tc_descript($case); }

0 comments on commit dc481e1

Please sign in to comment.