From a1bd66444793b18b7029e1a5d2634a27768c7851 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sat, 7 May 2011 09:21:37 -0700 Subject: [PATCH] Fix issues with 'gawk' --- Shorewall/Perl/prog.header | 8 ++++---- Shorewall/Perl/prog.header6 | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/Shorewall/Perl/prog.header b/Shorewall/Perl/prog.header index 425b7c546..b4148426f 100644 --- a/Shorewall/Perl/prog.header +++ b/Shorewall/Perl/prog.header @@ -509,10 +509,10 @@ undo_routing() { # save_default_route() { awk \ - 'BEGIN {default=0;}; \ - /^default / {default=1; print; next}; \ - /nexthop/ {if (default == 1 ) {print ; next} }; \ - { default=0; };' + 'BEGIN {defroute=0;}; + /^default / {deroute=1; print; next}; + /nexthop/ {if (defroute == 1 ) {print ; next} }; + { defroute=0; };' } # diff --git a/Shorewall/Perl/prog.header6 b/Shorewall/Perl/prog.header6 index 8cf782756..c36e78b1b 100644 --- a/Shorewall/Perl/prog.header6 +++ b/Shorewall/Perl/prog.header6 @@ -497,10 +497,10 @@ undo_routing() { # save_default_route() { awk \ - 'BEGIN {default=0;}; \ - /^default / {default=1; print; next}; \ - /nexthop/ {if (default == 1 ) {print ; next} }; \ - { default=0; };' + 'BEGIN {defroute=0;}; + /^default / {defroute=1; print; next}; + /nexthop/ {if (defroute == 1 ) {print ; next} }; + { defroute=0; };' } #