deleting trailing whitespaces

hknutzen · Mar 15, 2017 · 0362d8c · 0362d8c
1 parent f2c1b7e
commit 0362d8c
Show file tree

Hide file tree

Showing 6 changed files with 370 additions and 370 deletions.
diff --git a/bin/cut-netspoc b/bin/cut-netspoc
@@ -332,7 +332,7 @@ sub process_rules {
 #	        debug "Used $obj->{name}";
                 $obj->{router}->{is_used} = 1;
                 $obj->{network}->{is_used} = 1;
-            }		    
+            }
         }
         &path_walk($rule, \&mark_topology);
         for my $prt (@$prt_list) {

diff --git a/bin/export-netspoc b/bin/export-netspoc
@@ -405,7 +405,7 @@ my %all_objects;
 # Split service, if 'user' has different values in normalized rules.
 sub normalize_services_for_export {
     progress("Normalize services for export");
-    my @result; 
+    my @result;
     for my $service (sort by_name values %services) {
         next if $service->{disabled};
         my $sname   = $service->{name};
@@ -495,7 +495,7 @@ sub normalize_services_for_export {
 sub setup_service_info {
     my ($normalized_services) = @_;
     progress("Setup service info");
-    
+
     for my $service (@$normalized_services) {
         my $users = $service->{user};
 

diff --git a/bin/print-group b/bin/print-group
@@ -177,7 +177,7 @@ sub print_address {
 # Argument processing
 ####################################################################
 
-my ($nat_net, $show_unused, $show_ip, $show_name, $show_owner, $groups_file, 
+my ($nat_net, $show_unused, $show_ip, $show_name, $show_owner, $groups_file,
     $quiet, $help, $ipv6, $man);
 
 GetOptions ( 'nat=s'  => \$nat_net,