From ae5b57a84d549166bae637c0c01db0b9e09b138f Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Fri, 13 Jul 2007 17:00:13 +0000
Subject: [PATCH] a touch should not obliterate

---
 FS/FS/Conf.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 66fd9b30e..1851c4d08 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -179,7 +179,9 @@ sub touch {
   return $self->_usecompat('touch', @_) if use_confcompat;
 
   my($name, $agent) = @_;
-  $self->set($name, '', $agent);
+  unless ( $self->exists($name, $agent) ) {
+    $self->set($name, '', $agent);
+  }
 }
 
 =item set KEY VALUE
-- 
2.11.0