diff --git a/Shorewall/Perl/Shorewall/IPAddrs.pm b/Shorewall/Perl/Shorewall/IPAddrs.pm
index 66292b0d8..30ab2140d 100644
--- a/Shorewall/Perl/Shorewall/IPAddrs.pm
+++ b/Shorewall/Perl/Shorewall/IPAddrs.pm
@@ -124,8 +124,8 @@ sub valid_4address( $ ) {
 
     my @address = split /\./, $address;
     return 0 unless @address == 4;
-    for my $a ( @address ) {
-	return 0 unless $a =~ /^\d+$/ && $a < 256;
+    for ( @address ) {
+	return 0 unless /^\d+$/ && $_ < 256;
     }
 
     1;
@@ -158,8 +158,8 @@ sub decodeaddr( $ ) {
 
     my $result = shift @address;
 
-    for my $a ( @address ) {
-	$result = ( $result << 8 ) | $a;
+    for ( @address ) {
+	$result = ( $result << 8 ) | $_;
     }
 
     $result;
diff --git a/docs/images/Network2010a.dia b/docs/images/Network2010a.dia
index e28f731ef..34ef5cccb 100644
Binary files a/docs/images/Network2010a.dia and b/docs/images/Network2010a.dia differ
diff --git a/docs/images/Network2010a.png b/docs/images/Network2010a.png
index f82cee8d7..5f9707860 100644
Binary files a/docs/images/Network2010a.png and b/docs/images/Network2010a.png differ