[Minor] Format perl scripts using current perltidy version

diff --git a/utils/asn.pl b/utils/asn.pl
index b5f2ca41e764e38d25e1b46f0214366c83b5474c..fe543635448f54b36a056f93cdc4ff6e41a218b8 100644 (file)
--- a/utils/asn.pl
+++ b/utils/asn.pl
@@ -63,7 +63,7 @@ sub download_file {
     my ($u) = @_;
 
     print "Fetching $u\n";
-    my $ff = File::Fetch->new( uri => $u );
+    my $ff    = File::Fetch->new( uri => $u );
     my $where = $ff->fetch( to => $download_target ) or die $ff->error;
 
     return $where;

diff --git a/utils/classifier_test.pl b/utils/classifier_test.pl
index 994ad8ce82f01b1688a09c14c2f88b97b6824d9a..238417f99141a9143edcdc57a1eef32b4c40ec3d 100644 (file)
--- a/utils/classifier_test.pl
+++ b/utils/classifier_test.pl
@@ -73,7 +73,7 @@ sub learn_rspamc {
     my ( $files, $spam ) = @_;
     my $processed = 0;
 
-    my $cmd = $spam ? "learn_spam" : "learn_ham";
+    my $cmd         = $spam ? "learn_spam" : "learn_ham";
     my $args_quoted = shell_quote @{$files};
     open( my $p, "$rspamc -t $timeout -c $classifier --compact -j -n $parallel $cmd $args_quoted |" )
       or die "cannot spawn $rspamc: $!";
@@ -94,7 +94,7 @@ sub learn_bogofilter {
 
     foreach my $f ( @{$files} ) {
         my $args_quoted = shell_quote $f;
-        my $fl = $spam ? "-s" : "-n";
+        my $fl          = $spam ? "-s" : "-n";
         `$bogofilter  -I $args_quoted $fl`;
         if ( $? == 0 ) {
             $processed++;
@@ -110,7 +110,7 @@ sub learn_dspam {
 
     foreach my $f ( @{$files} ) {
         my $args_quoted = shell_quote $f;
-        my $fl = $spam ? "--class=spam" : "--class=innocent";
+        my $fl          = $spam ? "--class=spam" : "--class=innocent";
         open( my $p, "|$dspam --user nobody --source=corpus --stdout --mode=toe $fl" )
           or die "cannot run $dspam: $!";
 

diff --git a/utils/rspamd_stats.pl b/utils/rspamd_stats.pl
index a6d603709ff45eece5e0fcc8ce7c6c2ef8fc8409..6d304742ad13ba0938a7bb2fb9c8d2b634fb715f 100755 (executable)
--- a/utils/rspamd_stats.pl
+++ b/utils/rspamd_stats.pl
@@ -100,7 +100,7 @@ foreach my $s (@symbols_bidirectional) {
 # Deal with groups
 my $group_id = 0;
 foreach my $g (@symbols_groups) {
-    my @symbols = split /,/, $g;
+    my @symbols    = split /,/, $g;
     my $group_name = "group$group_id";
 
     foreach my $s (@symbols) {
@@ -124,7 +124,7 @@ elsif ( -d "$log_file" ) {
     # Process logs
     foreach (@logs) {
         my $ext = (/[^.]+\.?([^.]*?)$/)[0];
-        my $dc = $decompressor{$ext} || 'cat';
+        my $dc  = $decompressor{$ext} || 'cat';
 
         open( $rspamd_log, "-|", "$dc $log_dir/$_" )
           or die "cannot execute $dc $log_dir/$_ : $!";
@@ -143,7 +143,7 @@ elsif ( -d "$log_file" ) {
 }
 else {
     my $ext = ( $log_file =~ /[^.]+\.?([^.]*?)$/ )[0];
-    my $dc = $decompressor{$ext} || 'cat';
+    my $dc  = $decompressor{$ext} || 'cat';
     open( $rspamd_log, "-|", "$dc $log_file" )
       or die "cannot execute $dc $log_file : $!";
     $spinner_update_time = 0;                         # Force spinner update
@@ -679,7 +679,7 @@ sub GetLogfilesList {
     opendir( DIR, $dir ) or die $!;
 
     my $pattern = join( '|', keys %decompressor );
-    my $re = qr/\.[0-9]+(?:\.(?:$pattern))?/;
+    my $re      = qr/\.[0-9]+(?:\.(?:$pattern))?/;
 
     # Add unnumbered logs first
     my @logs =