From af06a0b4ee9877192f7d5d2033c03bfe384123cc Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 11 Aug 1998 18:17:47 +0000
Subject: Use Perl's rename() function instead of system(); there's no need for
 two additional processes for each name change!

---
 Doc/tools/node2label.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Doc/tools/node2label.pl b/Doc/tools/node2label.pl
index 5cc54d6..a59d68e 100755
--- a/Doc/tools/node2label.pl
+++ b/Doc/tools/node2label.pl
@@ -51,6 +51,5 @@ while (<>) {
 }
 
 foreach $oldname (keys %newnames) {
-# or ln -s
-  system("mv $oldname $newnames{$oldname}");
+  rename($oldname, $newnames{$oldname});
 }
-- 
cgit v0.12