Author: adsb
Date: 2009-04-12 14:59:13 +0000 (Sun, 12 Apr 2009)
New Revision: 1854
Modified:
trunk/debian/changelog
trunk/scripts/debchange.pl
Log:
debchange: Fix a couple of syntax errors in the "does an orig tarball
exist?" test introduced for #500932.
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2009-04-12 14:29:48 UTC (rev 1853)
+++ trunk/debian/changelog 2009-04-12 14:59:13 UTC (rev 1854)
@@ -2,6 +2,8 @@
[ Adam D. Barratt ]
* Update Standards Version to 3.8.1 (no changes required)
+ * debchange: Fix a couple of syntax errors in the "does an orig tarball
+ exist?" test introduced for #500932.
* debdiff:
+ Don't bail if diff returned an exit status of 2 when comparing
files. If there are binary files in either of the trees being compared
Modified: trunk/scripts/debchange.pl
===================================================================
--- trunk/scripts/debchange.pl 2009-04-12 14:29:48 UTC (rev 1853)
+++ trunk/scripts/debchange.pl 2009-04-12 14:59:13 UTC (rev 1854)
@@ -1394,8 +1394,8 @@
warn "$progname warning: Couldn't rename directory: $!";
}
# And check whether a new orig tarball exists
- my @origs = glob("../$(PACKAGE)_$(new_uversion).*");
- my $num_origs = grep { $_ =~
/^$(PACKAGE)_$(new_uversion)\.tar\.(gz|bz2|lzma)$/ } @origs;
+ my @origs = glob("../$PACKAGE\_$new_uversion.*");
+ my $num_origs = grep {
/^..\/\Q$PACKAGE\E_\Q$new_uversion\E\.orig\.tar\.(gz|bz2|lzma)$/ } @origs;
if ($num_origs eq 0) {
warn "$progname warning: no orig tarball found for the new
version.\n";
}
--
To unsubscribe, send mail to [email protected].
