a touch should not obliterate

[freeside.git] / FS / FS / Conf.pm

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 66fd9b3..1851c4d 100644 (file)
--- 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