On 6/16/10 10:23 PM, John Brendler wrote: > > I have explicit paths for all the executables, and I already > double-checked that. >
> Shorewall::Config::IPSet_Match(/usr/share/shorewall/Shorewall/Config.pm:2351):
> 2351: my $ipset = $config{IPSET} || 'ipset';
> DB<2> n
> Shorewall::Config::IPSet_Match(/usr/share/shorewall/Shorewall/Config.pm:2352):
> 2352: my $result = 0;
> DB<2> n
> Shorewall::Config::IPSet_Match(/usr/share/shorewall/Shorewall/Config.pm:2354):
> 2354: $ipset = which $ipset unless $ipset =~ '//';
> DB<2> n
> Shorewall::Config::IPSet_Match(/usr/share/shorewall/Shorewall/Config.pm:2356):
> 2356: if ( $ipset && -x $ipset ) {
> DB<2> n
> Shorewall::Config::IPSet_Match(/usr/share/shorewall/Shorewall/Config.pm:2369):
> 2369: $result;
The attached patch corrects the problem:
patch /usr/share/shorewall/Shorewall/Config.pm < ipset_match.diff
-Tom
--
Tom Eastep \ When I die, I want to go like my Grandfather who
Shoreline, \ died peacefully in his sleep. Not screaming like
Washington, USA \ all of the passengers in his car
http://shorewall.net \________________________________________________
diff --git a/Shorewall/Perl/Shorewall/Config.pm
b/Shorewall/Perl/Shorewall/Config.pm
index 28b290a..d454615 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -2351,7 +2351,7 @@ sub IPSet_Match() {
my $ipset = $config{IPSET} || 'ipset';
my $result = 0;
- $ipset = which $ipset unless $ipset =~ '//';
+ $ipset = which $ipset unless $ipset =~ '^/';
if ( $ipset && -x $ipset ) {
qt( "$ipset -X $sillyname" );
signature.asc
Description: OpenPGP digital signature
------------------------------------------------------------------------------ ThinkGeek and WIRED's GeekDad team up for the Ultimate GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the lucky parental unit. See the prize list and enter to win: http://p.sf.net/sfu/thinkgeek-promo
_______________________________________________ Shorewall-users mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/shorewall-users
