Starting with shorewall-4.0.11, I''m getting this warning Use of uninitialized value in division (/) at /usr/share/shorewall-perl/Shorewall/Tc.pm line 300 when using 0 (disabled) as in-bandwidth on tcdevices file. The warning goes away if I type 0kbit instead of 0. I''m pretty sure it''s related to Problem Corrected #3 on shorewall-perl release notes. Thanks. Pablo. ------------------------------------------------------------------------- Check out the new SourceForge.net Marketplace. It''s the best place to buy or sell services for just about anything Open Source. http://sourceforge.net/services/buy/index.php
Pablo Sebastián Greco wrote:> Starting with shorewall-4.0.11, I''m getting this warning > Use of uninitialized value in division (/) at > /usr/share/shorewall-perl/Shorewall/Tc.pm line 300 > when using 0 (disabled) as in-bandwidth on tcdevices file. The warning > goes away if I type 0kbit instead of 0. > I''m pretty sure it''s related to Problem Corrected #3 on shorewall-perl > release notes.Change /usr/share/shorewall-perl/Shorewall/Tc.pm to read as follows: return int($1/125) if $rate =~ /^(\d+)(bps)?$/; -Tom -- Tom Eastep \ Nothing is foolproof to a sufficiently talented fool Shoreline, \ http://shorewall.net Washington USA \ teastep@shorewall.net PGP Public Key \ https://lists.shorewall.net/teastep.pgp.key ------------------------------------------------------------------------- Check out the new SourceForge.net Marketplace. It''s the best place to buy or sell services for just about anything Open Source. http://sourceforge.net/services/buy/index.php
Tom Eastep wrote:> Pablo Sebastián Greco wrote: >> Starting with shorewall-4.0.11, I''m getting this warning >> Use of uninitialized value in division (/) at >> /usr/share/shorewall-perl/Shorewall/Tc.pm line 300 >> when using 0 (disabled) as in-bandwidth on tcdevices file. The >> warning goes away if I type 0kbit instead of 0. >> I''m pretty sure it''s related to Problem Corrected #3 on >> shorewall-perl release notes. > > Change /usr/share/shorewall-perl/Shorewall/Tc.pm to read as follows: > > return int($1/125) if $rate =~ /^(\d+)(bps)?$/; > > -TomPerfect, thanks. Pablo ------------------------------------------------------------------------- Check out the new SourceForge.net Marketplace. It''s the best place to buy or sell services for just about anything Open Source. http://sourceforge.net/services/buy/index.php
Tom Eastep wrote:> Pablo Sebastián Greco wrote: >> Starting with shorewall-4.0.11, I''m getting this warning >> Use of uninitialized value in division (/) at >> /usr/share/shorewall-perl/Shorewall/Tc.pm line 300 >> when using 0 (disabled) as in-bandwidth on tcdevices file. The >> warning goes away if I type 0kbit instead of 0. >> I''m pretty sure it''s related to Problem Corrected #3 on >> shorewall-perl release notes. > > Change /usr/share/shorewall-perl/Shorewall/Tc.pm to read as follows: > > return int($1/125) if $rate =~ /^(\d+)(bps)?$/; > > -TomPerfect, thanks. Pablo ------------------------------------------------------------------------- Check out the new SourceForge.net Marketplace. It''s the best place to buy or sell services for just about anything Open Source. http://sourceforge.net/services/buy/index.php