r48560 - /people/ansgar/source-v3/libcatalyst-modules-perl/debian/bundle-manager

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Thu Dec 10 15:58:09 2009
New Revision: 48560

URL: http://svn.debian.org/wsvn/?sc=1&rev=48560
Log:
make SVN a bit happier when updating a module

Modified:
    people/ansgar/source-v3/libcatalyst-modules-perl/debian/bundle-manager

Modified: people/ansgar/source-v3/libcatalyst-modules-perl/debian/bundle-manager
URL: http://svn.debian.org/wsvn/people/ansgar/source-v3/libcatalyst-modules-perl/debian/bundle-manager?rev=48560&op=diff
==============================================================================
--- people/ansgar/source-v3/libcatalyst-modules-perl/debian/bundle-manager (original)
+++ people/ansgar/source-v3/libcatalyst-modules-perl/debian/bundle-manager Thu Dec 10 15:58:09 2009
@@ -242,10 +242,16 @@
 	getstore($upstream_link, $file);
 
 	print "Remove old $module...\n";
-	remove(\1, $module);
+	if (-d ".svn") {
+		(system "svn", "remove", "--force", $module) == 0
+		    or die "removing module failed";
+	}
+	else {
+		remove(\1, $module);
+		mkdir $module;
+	}
 
 	print "Extracting new $module...\n";
-	mkdir $module;
 	(system "tar", "--strip=1", "-C", $module, "-xzvf", $file) == 0
 	    or die "extracting new module failed.";
 }