perl 3.0 patch #12 patch #9, continued

See patch #9.

1 files changed, 24 insertions, 0 deletions

diff --git a/eg/relink b/eg/relink
new file mode 100644
index 0000000000..2d8e5f6540
--- /dev/null
+++ b/eg/relink
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+($op = shift) || die "Usage: relink perlexpr [filenames]\n";
+if (!@ARGV) {
+    if (-t) {
+	@ARGV = <*>;
+    }
+    else {
+	@ARGV = <STDIN>;
+	chop(@ARGV);
+    }
+}
+for (@ARGV) {
+    next unless -l;		# symbolic link?
+    $name = $_;
+    $_ = readlink($_);
+    $was = $_;
+    eval $op;
+    die $@ if $@;
+    if ($was ne $_) {
+	unlink($name);
+	symlink($_, $name);
+    }
+}