Author: adsb
Date: 2008-10-29 20:17:21 +0000 (Wed, 29 Oct 2008)
New Revision: 1678
Modified:
trunk/scripts/debdiff.pl
Log:
Allow for the (admittedly unlikely but possible) specification of multiple
distributions
Modified: trunk/scripts/debdiff.pl
===================================================================
--- trunk/scripts/debdiff.pl 2008-10-29 19:45:06 UTC (rev 1677)
+++ trunk/scripts/debdiff.pl 2008-10-29 20:17:21 UTC (rev 1678)
@@ -267,12 +267,12 @@
# If no file is given, assume that we are in a source directory
# and try to create a diff with the previous version
if(@ARGV == 0) {
- my $name_pat = qr/[-+0-9a-z.]/i;
+ my $namepat = qr/[-+0-9a-z.]/i;
fatal "Can't read file: debian/changelog" unless -r "debian/changelog";
open CHL, "debian/changelog";
while(<CHL>) {
- if(/^(\w$name_pat*)\s\((\d+:)?(.+)\)\s($name_pat+)\;\surgency=.+$/) {
+ if(/^(\w$namepat*)\s\((\d+:)?(.+)\)((\s+$namepat+)+)\;\surgency=.+$/) {
unshift @ARGV, "../".$1."_".$3.".dsc";
$guessed_version++;
}
--
To unsubscribe, send mail to [EMAIL PROTECTED]
