[LON-CAPA-cvs] cvs: loncom /build verifymodown.pl

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 08 Jun 2004 23:14:16 -0000


albertel		Tue Jun  8 19:14:16 2004 EDT

  Modified files:              
    /loncom/build	verifymodown.pl 
  Log:
  - clean up carping message
  - `` in void context doesn't make sense
  
  
Index: loncom/build/verifymodown.pl
diff -u loncom/build/verifymodown.pl:1.2 loncom/build/verifymodown.pl:1.3
--- loncom/build/verifymodown.pl:1.2	Thu Dec  6 18:14:33 2001
+++ loncom/build/verifymodown.pl	Tue Jun  8 19:14:16 2004
@@ -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 ($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";
+}