From: jeff <jeff>
Date: Fri, 13 Jul 2007 17:00:13 +0000 (+0000)
Subject: a touch should not obliterate
X-Git-Tag: TRIXBOX_2_6~456
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ae5b57a84d549166bae637c0c01db0b9e09b138f

a touch should not obliterate
---

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