lintian: r398 - in trunk: debian lib

[djpig@debian.org]

Author: djpig
Date: 2005-01-08 21:45:35 +0100 (Sat, 08 Jan 2005)
New Revision: 398

Modified:
   trunk/debian/changelog
   trunk/lib/Lab.pm
Log:
Since the last release, creation of static lab failed
if the directory already existed


Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2005-01-02 13:15:39 UTC (rev 397)
+++ trunk/debian/changelog	2005-01-08 20:45:35 UTC (rev 398)
@@ -1,3 +1,10 @@
+lintian (1.23.7) unstable; urgency=high
+
+  * lib/Lab.pm: Since the last release, creation of static lab failed
+    if the directory already existed
+
+ -- Frank Lichtenheld <djpig@debian.org>  Sat,  8 Jan 2005 21:41:21 +0100
+
 lintian (1.23.6) unstable; urgency=low
 
   The "Let's see if I can upload myself now" release, made by Marc, Frank and

Modified: trunk/lib/Lab.pm
===================================================================
--- trunk/lib/Lab.pm	2005-01-02 13:15:39 UTC (rev 397)
+++ trunk/lib/Lab.pm	2005-01-08 20:45:35 UTC (rev 398)
@@ -94,7 +94,9 @@
 
     # create lab directory
     # (Note, that the mode 0777 is reduced by the current umask.)
-    mkdir($dir,0777) or fail("cannot create lab directory $dir");
+    unless (-d $dir && ( $self->{mode} eq 'static' )) {
+    	mkdir($dir,0777) or fail("cannot create lab directory $dir");
+    }
 
     # create base directories
     for my $subdir (qw( binary source udeb info )) {