Bug#436180: [general] wrong perl operator for a pattern match

[Guillem Jover <guillem@debian.org>]

Package: lintian
Version: 1.23.33
Severity: normal
Tags: patch

Hi,

There's a wrong operator for a pattern match. Here's the error:

,----
|Now running lintian...
|Use of uninitialized value in pattern match (m//) at /usr/bin/lintian line 639.
|E: bmv_1.2-21_i386.changes: bad-distribution-in-changes-file UNRELEASED
|Finished running lintian.
`----

Attached a trivial patch which fixes it.

regards,
guillem

diff -Naur lintian-1.23.33.orig/frontend/lintian lintian-1.23.33/frontend/lintian
--- lintian-1.23.33.orig/frontend/lintian	2007-07-24 03:14:24.000000000 +0300
+++ lintian-1.23.33/frontend/lintian	2007-08-06 05:30:00.000000000 +0300
@@ -641,7 +641,7 @@
                        or ($data->{distribution} eq 'testing')
                        or ($data->{distribution} eq 'unstable')
                        or ($data->{distribution} eq 'experimental')
-		       or ($data->{distribution} eq /\w+-backports/)
+		       or ($data->{distribution} =~ /\w+-backports/)
                        or ($data->{distribution} =~ /\w+-proposed-updates/)
                        or ($data->{distribution} =~ /\w+-security/))
                ) {