r9010 - /scripts/qa/DebianQA/Svn.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Thu Nov 8 07:44:22 UTC 2007
Author: tincho-guest
Date: Thu Nov 8 07:44:22 2007
New Revision: 9010
URL: http://svn.debian.org/wsvn/?sc=1&rev=9010
Log:
Fixed abort() because svn doesn't like double slashes in paths...
Modified:
scripts/qa/DebianQA/Svn.pm
Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=9010&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Thu Nov 8 07:44:22 2007
@@ -93,7 +93,9 @@
$svn{$dir} = {};
info("Retrieving changelog for $dir");
my $changelog = get_svn_file($svn,
- "$svnpath/$dir/$CFG{svn}{post_path}/debian/changelog");
+ "$svnpath/$dir/" .
+ ($CFG{svn}{post_path} ? $CFG{svn}{post_path} . "/" : "") .
+ "debian/changelog");
unless($changelog) {
$svn{$dir}{error} = "Missing";
@@ -136,7 +138,9 @@
info("Retrieving watchfile for $dir");
my $watch = get_svn_file($svn,
- "$svnpath/$dir/$CFG{svn}{post_path}/debian/watch");
+ "$svnpath/$dir/" .
+ ($CFG{svn}{post_path} ? $CFG{svn}{post_path} . "/" : "") .
+ "debian/watch");
unless($watch) {
if($svn{$dir}{version} and $svn{$dir}{version} !~ /-/) {
$svn{$dir}{watch_error} = "Native";
More information about the Pkg-perl-cvs-commits
mailing list