Return to install.pl CVS log | Up to [LON-CAPA] / doc / install / redhat7.3 |
version 1.20, 2003/04/30 20:59:57 | version 1.21, 2003/08/05 15:05:28 |
---|---|
Line 89 my $test; | Line 89 my $test; |
# note: The filehandle LOG is global. | # note: The filehandle LOG is global. |
open LOG,">loncapa_install.log" || die "Unable to open log file.\n"; | open LOG,">loncapa_install.log" || die "Unable to open log file.\n"; |
print LOG '$Id$'."\n"; | |
# Some friendly subroutines | # Some friendly subroutines |
sub die_if_nonempty { | sub die_if_nonempty { |
my ($string,$error)=@_; | my ($string,$error)=@_; |