diff options
| author | jeff <jeff> | 2007-07-13 17:00:13 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-07-13 17:00:13 +0000 |
| commit | ae5b57a84d549166bae637c0c01db0b9e09b138f (patch) | |
| tree | a19724bccb8e2a448f435b0c773cb957aa64ee74 | |
| parent | 9071929765c4b63a600c95bb2c2a2c7851a41377 (diff) | |
a touch should not obliterate
| -rw-r--r-- | FS/FS/Conf.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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 |