X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=glafp-utils%2Fscripts%2FmkdependC.prl;fp=glafp-utils%2Fscripts%2FmkdependC.prl;h=cca167dc8ac313565612191e096c806e65874a0a;hb=ab3cd3eb386bf8f4051bc63a44748d85a58ce37d;hp=272c0a83c5ba96e4d2de50f9c5da6a0e95df5020;hpb=6de297d3c96538ada2b0164a27497bb2dbc72baf;p=ghc-hetmet.git

diff --git a/glafp-utils/scripts/mkdependC.prl b/glafp-utils/scripts/mkdependC.prl
index 272c0a8..cca167d 100644
--- a/glafp-utils/scripts/mkdependC.prl
+++ b/glafp-utils/scripts/mkdependC.prl
@@ -9,7 +9,7 @@
 $Usage  = "usage: $Pgm: not done yet\n";
 
 $Status  = 0; # just used for exit() status
-$Verbose = '';
+$Verbose = 0;
 $Dashdashes_seen = 0;
 
 $Begin_magic_str = "# DO NOT DELETE: Beginning of C dependencies\n";
@@ -27,7 +27,7 @@ if ( ! $Makefile && -f 'makefile' ) {
     $Makefile = 'makefile';
 } elsif ( ! $Makefile && -f 'Makefile') {
     $Makefile = 'Makefile';
-} else {
+} elsif ( ! $Makefile) {
     die "$Pgm: no makefile or Makefile found\n";
 }
 
@@ -73,7 +73,6 @@ while (<OMKF>) { # copy the rest through
 }
 close(NMKF);
 close(OMKF);
-chmod 0444, 'Makefile';
 exit 0;
 
 sub mangle_command_line_args {
@@ -90,7 +89,7 @@ sub mangle_command_line_args {
 
 	} elsif ($Dashdashes_seen != 1) { # not between -- ... --
 	    if ( /^-v$/ ) {
-		$Verbose	= '-v';
+		$Verbose++;
 	    } elsif ( /^-f/ ) {
 		$Makefile	= &grab_arg_arg($_);
 	    } elsif ( /^-o/ ) {