Permalink
Browse files

Regex bugfix

Avoid "Use of uninitialized value in pattern match" warning
  • Loading branch information...
jamiemccarthy committed May 2, 2008
1 parent 5163dfe commit cf5866dca5f4670a947795926040551306790998
Showing with 1 addition and 1 deletion.
  1. +1 −1 Slash/Utility/Environment/Environment.pm
@@ -1958,7 +1958,7 @@ sub filter_param {
$special{$key}->($data);
} else {
for my $ri (@regints) {
- $data = fixint($data) if /$ri/;
+ $data = fixint($data) if $key =~ /$ri/;
}
}

0 comments on commit cf5866d

Please sign in to comment.