From: epg <>
Date: Sun, 25 Apr 2004 21:19:26 +0000 (+0000)
Subject: Don't use 'scalar' function on lists that are already evaluated in
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/36ff1ab19c89098ebbd2976d51ae49ff844bf4e2?hp=884042eb22de8c5c7db4d80be597e5124d257801

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

diff --git a/minc b/minc
index 70f95d0..0a97be7 100755
--- a/minc
+++ b/minc
@@ -95,7 +95,7 @@ GetOptions(
            'p' => \$printfilenames,
           ) or pod2usage();
 $help and pod2usage(-exitstatus=>0, -verbose=>1);
-scalar(@ARGV) == 0 or pod2usage();
+@ARGV == 0 or pod2usage();
 
 our $run = !$norun;
 
@@ -291,7 +291,7 @@ sub getfiles {
         die("Failed readdir($dir)");
     }
 
-    if (scalar(@result) == 0) {
+    if (@result == 0) {
         exit(0);
     }
 
@@ -543,7 +543,7 @@ sub find_mh_folder {
 
 sub filter_mail {
     my @msglist = @_;
-    my $msgcount = scalar(@msglist);
+    my $msgcount = @msglist;
     my $msgcountlen = length($msgcount);
     my @baton;
     my $msg;
@@ -569,7 +569,7 @@ sub filter_mail {
 
         if (spam_check($msg, @baton)) {
             $mhfolder = 'SPAM';
-            $spam = scalar(@SPAM)+ 1;
+            $spam = @SPAM + 1;
         } else {
             $mhfolder = find_mh_folder($msg);
             $saved++;