Change a couple uses of C's not operator '!' to Perl's 'not'

operator.

diff --git a/minc b/minc
index 53d926f..9ddd85d 100755 (executable)
--- a/minc
+++ b/minc
@@ -70,7 +70,7 @@ our $opt_h;
 our $opt_n;
 our $opt_s;                     # ;; # stupid cperl-mode
 
 our $opt_n;
 our $opt_s;                     # ;; # stupid cperl-mode
 

-if (!getopts('dhns')) {
+if (not getopts('dhns')) {

     exit(&EX_USAGE);
 }
 
     exit(&EX_USAGE);
 }
 


@@ -249,7 +249,7 @@ sub mkfolder {
     $folder = $mh . '/' . $mhfolder;
     $target = '';
 
     $folder = $mh . '/' . $mhfolder;
     $target = '';
 

-    if (! -d $folder) {
+    if (not -d $folder) {

         foreach $component (split('/', $folder)) {
             if (defined($component) and length($component) >= 1) {
                 $target = $target . '/' . $component;
         foreach $component (split('/', $folder)) {
             if (defined($component) and length($component) >= 1) {
                 $target = $target . '/' . $component;


@@ -328,7 +328,7 @@ sub get_headers {
         if (/^\s/) {
             # folded header continuation
 
         if (/^\s/) {
             # folded header continuation
 

-            if (!defined($current)) {
+            if (not defined($current)) {

                 print("Malformed message, cannot parse headers.\n");
                 return ();
             }
                 print("Malformed message, cannot parse headers.\n");
                 return ();
             }