From f4a6ab854b5ce34dbe7902457a1090836f62d0a7 Mon Sep 17 00:00:00 2001
From: Per Hedbor <ph@opera.com>
Date: Mon, 1 Feb 1999 04:38:45 +0100
Subject: [PATCH] Avoid infinite recursion

Rev: bin/install.pike:1.4
---
 bin/install.pike | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/bin/install.pike b/bin/install.pike
index ac372ab6a0..df7de7e110 100644
--- a/bin/install.pike
+++ b/bin/install.pike
@@ -102,7 +102,11 @@ int install_file(string from,
 		     void|int mode,
 		     void|int dump)
 {
-  int ret=install_file(from,to,mode);
+  int ret;
+  if(query_num_arg() == 2)
+    ret=low_install_file(from,to);
+  else
+    ret=low_install_file(from,to,mode);
   if((ret || redump_all) && dump)
   {
     switch(reverse(to)[..4])
-- 
GitLab