[TWiki-Dev] [SVN] HideyoImazu r30290 - twiki/trunk/core/lib/TWiki/Store

[<de...@de...>]

Author: HideyoImazu
Date: 2017-01-10 04:16:52 +0000 (Tue, 10 Jan 2017)
New Revision: 30290
Trac url: http://develop.twiki.org/trac/changeset/30290

Modified:
   twiki/trunk/core/lib/TWiki/Store/RcsWrap.pm
Log:
Item7765: Dangling RCS semaphore file causes topic/attachment save to fail

Modified: twiki/trunk/core/lib/TWiki/Store/RcsWrap.pm
===================================================================
--- twiki/trunk/core/lib/TWiki/Store/RcsWrap.pm	2016-12-15 05:11:04 UTC (rev 30289)
+++ twiki/trunk/core/lib/TWiki/Store/RcsWrap.pm	2017-01-10 04:16:52 UTC (rev 30290)
@@ -408,6 +408,11 @@
 
     $comment = 'none' unless $comment;
 
+    # Item7765
+    my $semaphoreFile = $this->{file};
+    $semaphoreFile =~ s:^(.*/)(.*):$1,$2,:;
+    unlink $semaphoreFile;
+
     my( $cmd, $rcsOutput, $exit );
     if( defined( $date )) {
         require TWiki::Time;
@@ -442,6 +447,11 @@
 
     return unless -e $this->{rcsFile};
 
+    # Item7765
+    my $semaphoreFile = $this->{file};
+    $semaphoreFile =~ s:^(.*/)(.*):$1,$2,:;
+    unlink $semaphoreFile;
+
     # Try and get a lock on the file
     my ($rcsOutput, $exit) = $TWiki::sandbox->sysCommand(
         $TWiki::cfg{RCS}{lockCmd}, FILENAME => $this->{file} );