Package: devscripts
Version: 2.12.6
Severity: normal
Tags: patch

Dear Maintainer,

Attempting to debsnap the source package c++-annotations leads to errors
like:

debsnap: No files with hash ... matched 'c++-annotations'

The problem is that Perl's m// operator treats the '+' as a regex 
meta-character.  Escaping the '+' fixes the problem for me.  Please see
the attached patch for a possible solution.

Thank you,
tony

-- Package-specific info:

--- /etc/devscripts.conf ---

--- ~/.devscripts ---
DEBSIGN_KEYID=974B3E96
DEBSIGN_MAINT=tmanc...@debian.org

-- System Information:
Debian Release: wheezy/sid
  APT prefers testing
  APT policy: (500, 'testing'), (1, 'experimental')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 3.6-trunk-amd64 (SMP w/4 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages devscripts depends on:
ii  dpkg-dev  1.16.9
ii  libc6     2.13-37
ii  perl      5.14.2-15
ii  python    2.7.3~rc2-1

Versions of packages devscripts recommends:
ii  at                        3.1.13-2
ii  curl                      7.26.0-1
ii  dctrl-tools               2.22.2
ii  debian-keyring            2012.11.15
ii  dput                      0.9.6.3+nmu1
ii  equivs                    2.0.9
ii  fakeroot                  1.18.4-2
ii  gnupg                     1.4.12-6
ii  libcrypt-ssleay-perl      0.58-1
ii  libdistro-info-perl       0.10
ii  libjson-perl              2.53-1
ii  libparse-debcontrol-perl  2.005-3
ii  libsoap-lite-perl         0.714-1
ii  liburi-perl               1.60-1
ii  libwww-perl               6.04-1
ii  lintian                   2.5.10.2
ii  man-db                    2.6.2-1
ii  patch                     2.6.1-3
ii  patchutils                0.3.2-1.1
ii  python-debian             0.1.21
ii  python-magic              5.11-2
ii  sensible-utils            0.0.7
ii  strace                    4.5.20-2.3
ii  unzip                     6.0-8
ii  wdiff                     1.1.2-1
ii  wget                      1.13.4-3
ii  xz-utils                  5.1.1alpha+20120614-2

Versions of packages devscripts suggests:
ii  bsd-mailx [mailx]            8.1.2-0.20111106cvs-1
ii  build-essential              11.5
pn  cvs-buildpackage             <none>
pn  devscripts-el                <none>
ii  gnuplot                      4.6.0-8
pn  libauthen-sasl-perl          <none>
ii  libfile-desktopentry-perl    0.04-3
pn  libnet-smtp-ssl-perl         <none>
pn  libterm-size-perl            <none>
ii  libtimedate-perl             1.2000-1
ii  libyaml-syck-perl            1.20-1
ii  mutt                         1.5.21-6.2
ii  openssh-client [ssh-client]  1:6.0p1-3
ii  svn-buildpackage             0.8.5
ii  w3m                          0.5.3-8

-- no debconf information
>From 7712653d4dab98c1374e77d7ea79423fc1fdc6c0 Mon Sep 17 00:00:00 2001
From: tony mancill <tmanc...@debian.org>
Date: Sat, 15 Dec 2012 11:29:40 -0800
Subject: [PATCH] patch to escape regex meta-characters

---
 scripts/debsnap.pl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/debsnap.pl b/scripts/debsnap.pl
index 5b6cb35..13c2729 100755
--- a/scripts/debsnap.pl
+++ b/scripts/debsnap.pl
@@ -283,7 +283,7 @@ else {
 	    my $file_name;
 	    # fileinfo may match multiple files (e.g., orig tarball for iceweasel 3.0.12)
 	    foreach my $info (@$fileinfo) {
-		if ($info->{name} =~ m/^${package}/) {
+		if ($info->{name} =~ m/^\Q${package}\E/) {
 		    $file_name = $info->{name};
 		    last;
 		}
-- 
1.7.10.4

Reply via email to