From a3b6010a2721475ff9a5f9ca58e8e45fad2e99f1 Mon Sep 17 00:00:00 2001
From: Chip Salzenberg <chip@perl.com>
Date: Sun, 30 Mar 1997 11:46:57 +1200
Subject: Remove target before link() of perldiag.pod

---
 installperl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/installperl b/installperl
index 53468a9139..a654b268fe 100755
--- a/installperl
+++ b/installperl
@@ -243,6 +243,7 @@ if (! $versiononly || !($installprivlib =~ m/\Q$]/)) {
 		       "${installarchlib}/pod/perldiag.pod");
     if (compare($from, $to) || $nonono) {
 	mkpath("${installarchlib}/pod", 1, 0777);
+	unlink($to);
 	link($from, $to);
     }
 }
-- 
cgit v1.2.1