--- loncom/build/verifymodown.pl	2001/12/06 23:14:33	1.2
+++ loncom/build/verifymodown.pl	2004/06/08 23:14:16	1.3
@@ -7,7 +7,7 @@
 # YEAR=2001
 # 11/17,12/6 Scott Harrison
 #
-# $Id: verifymodown.pl,v 1.2 2001/12/06 23:14:33 harris41 Exp $
+# $Id: verifymodown.pl,v 1.3 2004/06/08 23:14:16 albertel Exp $
 ###
 
 my $filename=shift @ARGV;
@@ -42,11 +42,10 @@ if ($nofix) {
 }
 
 if ($cflag) {
-    `chmod $mode $filename`;
-    `chown $user:$group $filename`;
+    system("chmod $mode $filename");
+    system("chown $user:$group $filename");
 }
 
-print <<END if $cflag;
-**** WARNING (how did this happen?!) ****
-Fixing $filename ownership/permissions mismatch. $cflag\n";
-END
+if ($cflag) {
+    print "\nFixing $filename ownership/permissions mismatch. $cflag\n";
+}