Author: rra
Date: 2008-01-06 02:24:24 +0100 (Sun, 06 Jan 2008)
New Revision: 1121
Modified:
trunk/frontend/lintian-info
Log:
Fix lintian-info for normal situations (a bug I introduced with annotate
support).
Modified: trunk/frontend/lintian-info
===================================================================
--- trunk/frontend/lintian-info 2008-01-06 01:17:21 UTC (rev 1120)
+++ trunk/frontend/lintian-info 2008-01-06 01:24:24 UTC (rev 1121)
@@ -82,6 +82,9 @@
if ($annotate) {
$type = shift @pieces if ($pieces[0] =~ /^\w$/);
$pkg = shift @pieces if ($pieces[0] =~ /^\S+( (binary|udeb))?$/);
+ } else {
+ $type = shift @pieces;
+ $pkg = shift @pieces;
}
if ($annotate or (defined $type and $type =~ m/^[OEWIX]$/)) {
my $tag = shift @pieces;
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
