summaryrefslogtreecommitdiff
path: root/net/cvsup/files/patch-ac
diff options
context:
space:
mode:
Diffstat (limited to 'net/cvsup/files/patch-ac')
-rw-r--r--net/cvsup/files/patch-ac51
1 files changed, 0 insertions, 51 deletions
diff --git a/net/cvsup/files/patch-ac b/net/cvsup/files/patch-ac
deleted file mode 100644
index 817a3747b159..000000000000
--- a/net/cvsup/files/patch-ac
+++ /dev/null
@@ -1,51 +0,0 @@
-Index: client/src/Updater.m3
-===================================================================
-RCS file: /home/cvsupcvs/cvsup/client/src/Updater.m3,v
-retrieving revision 1.91
-diff -u -r1.91 Updater.m3
---- client/src/Updater.m3 1999/08/13 19:51:29 1.91
-+++ client/src/Updater.m3 2001/05/26 23:11:39
-@@ -712,7 +712,7 @@
- IF SupFileRec.Option.KeepBadFiles IN sfr.options THEN
- Warn(self, "Bad version saved in " & tempPath);
- ELSE
-- DeleteFile(tempPath);
-+ DeleteFile(self, tempPath);
- END;
- END;
- END UpdateFile;
-@@ -1188,7 +1188,7 @@
- IF NOT SupFileRec.Option.CheckoutMode IN sfr.options THEN
- (* Try the attic. *)
- WITH atticName = SupMisc.AtticName(destPath) DO
-- DeleteFile(atticName);
-+ DeleteFile(self, atticName);
- (* We always delete the Attic directory when it becomes empty.
- FIXME - Is that the right thing to do?. *)
- TRY
-@@ -1196,7 +1196,7 @@
- EXCEPT OSError.E => (* Ignore. *) END;
- END;
- END;
-- DeleteFile(destPath);
-+ DeleteFile(self, destPath);
- IF SupFileRec.Option.CheckoutMode IN sfr.options
- OR NOT self.proto.v.dirsAreExplicit THEN
- (* Delete the directory automatically if it is now empty. *)
-@@ -1231,14 +1231,13 @@
- END;
- END MakeDirectories;
-
--PROCEDURE DeleteFile(path: Pathname.T)
-- RAISES {Error} =
-+PROCEDURE DeleteFile(self: T; path: Pathname.T) =
- BEGIN
- TRY
- FileAttr.Delete(path);
- EXCEPT OSError.E(l) =>
- IF l.head # EnoentAtom THEN
-- RAISE Error("Cannot delete \"" & path & "\": " &
-+ Warn(self, "Cannot delete \"" & path & "\": " &
- ErrMsg.StrError(l));
- END;
- END;