randyk 2002/12/31 15:25:01
Modified: src/docs/1.0/os/win32 mpinstall
src/docs/2.0/os/win32 mpinstall
Log:
s/warn/die/
Revision Changes Path
1.3 +4 -4 modperl-docs/src/docs/1.0/os/win32/mpinstall
Index: mpinstall
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/1.0/os/win32/mpinstall,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- mpinstall 31 Dec 2002 22:59:48 -0000 1.2
+++ mpinstall 31 Dec 2002 23:25:01 -0000 1.3
@@ -163,11 +163,11 @@
# check CHECKSUMS for the tar.gz file
if (-e $cs) {
unless (verifyMD5($tgzfile)) {
- print qq{CHECKSUM check for "$tgzfile" failed.\n};
+ die qq{CHECKSUM check for "$tgzfile" failed.\n};
}
}
else {
- warn "Failed to fetch $checksums - will not verify CHECKSUMS.";
+ die "Failed to fetch $checksums - cannot verify CHECKSUMS.";
}
# edit the ppd file to reflect a local installation
@@ -258,8 +258,8 @@
my $file = shift;
my $fh = IO::File->new;
my $cksum;
- unless (open $fh, 'CHECKSUMS') {
- warn "Could not open CHECKSUMS: $!";
+ unless (open $fh, $cs) {
+ warn "Could not open $cs: $!";
return;
}
local($/);
1.3 +4 -4 modperl-docs/src/docs/2.0/os/win32/mpinstall
Index: mpinstall
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/os/win32/mpinstall,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- mpinstall 31 Dec 2002 22:59:48 -0000 1.2
+++ mpinstall 31 Dec 2002 23:25:01 -0000 1.3
@@ -163,11 +163,11 @@
# check CHECKSUMS for the tar.gz file
if (-e $cs) {
unless (verifyMD5($tgzfile)) {
- print qq{CHECKSUM check for "$tgzfile" failed.\n};
+ die qq{CHECKSUM check for "$tgzfile" failed.\n};
}
}
else {
- warn "Failed to fetch $checksums - will not verify CHECKSUMS.";
+ die "Failed to fetch $checksums - cannot verify CHECKSUMS.";
}
# edit the ppd file to reflect a local installation
@@ -258,8 +258,8 @@
my $file = shift;
my $fh = IO::File->new;
my $cksum;
- unless (open $fh, 'CHECKSUMS') {
- warn "Could not open CHECKSUMS: $!";
+ unless (open $fh, $cs) {
+ warn "Could not open $cs: $!";
return;
}
local($/);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
