From 1315da52d9685e7601c0f1626e5eb674778f404d Mon Sep 17 00:00:00 2001
From: Per Hedbor <ph@opera.com>
Date: Mon, 27 Mar 2000 06:24:26 +0200
Subject: [PATCH] Do _not_ follow symlinks in recursive_rm, remove them instead
Rev: lib/modules/Stdio.pmod/module.pmod:1.77
---
lib/modules/Stdio.pmod/module.pmod | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lib/modules/Stdio.pmod/module.pmod b/lib/modules/Stdio.pmod/module.pmod
index ffb5a728d1..e8713002d6 100644
--- a/lib/modules/Stdio.pmod/module.pmod
+++ b/lib/modules/Stdio.pmod/module.pmod
@@ -1,4 +1,4 @@
-// $Id: module.pmod,v 1.76 2000/02/29 03:18:42 hubbe Exp $
+// $Id: module.pmod,v 1.77 2000/03/27 04:24:26 per Exp $
import String;
@@ -846,8 +846,10 @@ int recursive_rm (string path)
{
int res = 1;
if (array(string) sub = get_dir (path))
- foreach (sub, string name)
- if (!recursive_rm (path + "/" + name)) res = 0;
+ foreach( sub, string name )
+ if( file_stat( path+"/"+name, 1 )[1] == -2 )
+ if (!recursive_rm (path + "/" + name))
+ res = 0;
return res && rm (path);
}
--
GitLab