Don't use 'scalar' function on lists that are already evaluated in

scalar context.

diff --git a/minc b/minc
index 70f95d0c6e0f8edd33533a997a7e0e7d810fb38d..0a97be70f0542c18e1573afd674c8b31816297e8 100755 (executable)
--- a/minc
+++ b/minc
@@ -95,7 +95,7 @@ GetOptions(
            'p' => \$printfilenames,
           ) or pod2usage();
 $help and pod2usage(-exitstatus=>0, -verbose=>1);
            'p' => \$printfilenames,
           ) or pod2usage();
 $help and pod2usage(-exitstatus=>0, -verbose=>1);

-scalar(@ARGV) == 0 or pod2usage();
+@ARGV == 0 or pod2usage();

 
 our $run = !$norun;
 
 
 our $run = !$norun;
 


@@ -291,7 +291,7 @@ sub getfiles {
         die("Failed readdir($dir)");
     }
 
         die("Failed readdir($dir)");
     }
 

-    if (scalar(@result) == 0) {
+    if (@result == 0) {

         exit(0);
     }
 
         exit(0);
     }
 


@@ -543,7 +543,7 @@ sub find_mh_folder {
 
 sub filter_mail {
     my @msglist = @_;
 
 sub filter_mail {
     my @msglist = @_;

-    my $msgcount = scalar(@msglist);
+    my $msgcount = @msglist;

     my $msgcountlen = length($msgcount);
     my @baton;
     my $msg;
     my $msgcountlen = length($msgcount);
     my @baton;
     my $msg;


@@ -569,7 +569,7 @@ sub filter_mail {
 
         if (spam_check($msg, @baton)) {
             $mhfolder = 'SPAM';
 
         if (spam_check($msg, @baton)) {
             $mhfolder = 'SPAM';

-            $spam = scalar(@SPAM)+ 1;
+            $spam = @SPAM + 1;

         } else {
             $mhfolder = find_mh_folder($msg);
             $saved++;
         } else {
             $mhfolder = find_mh_folder($msg);
             $saved++;