From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 18 Mar 2013 18:13:01 +0000 (-0700)
Subject: fix Use of qw(...) as parentheses is deprecated
X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=65ec4f07fa79e0d38fec6919c12a8ca4f24677a4

fix Use of qw(...) as parentheses is deprecated
---

diff --git a/scanlib.pm b/scanlib.pm
index 60e4cf4..2982284 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -200,7 +200,7 @@ sub scanspooldir {
 		if (defined($section{$bug->{'package'}}) && $section{$bug->{'package'}} eq 'pseudo') {
 			# versioning information makes no sense for pseudo packages,
 			# just use the tags
-			for my $dist qw(oldstable stable testing unstable experimental) {
+			for my $dist (qw(oldstable stable testing unstable experimental)) {
 				$bi->{$dist} = $disttags{$dist};
 			}
 			next if (length($bug->{'done'}));
@@ -208,7 +208,7 @@ sub scanspooldir {
 			my $affects_any = 0;
 		
 			# only bother to check the versioning status for the distributions indicated by the tags 
-			for my $dist qw(oldstable stable testing unstable experimental) {
+			for my $dist (qw(oldstable stable testing unstable experimental)) {
 				local $SIG{__WARN__} = sub {};
 
 				$bi->{$dist} = 0;
@@ -234,7 +234,7 @@ sub scanspooldir {
 			next if !$affects_any;
 		}
 
-		for my $keyword qw(pending patch help moreinfo unreproducible security upstream etch-ignore lenny-ignore squeeze-ignore wheezy-ignore) {
+		for my $keyword (qw(pending patch help moreinfo unreproducible security upstream etch-ignore lenny-ignore squeeze-ignore wheezy-ignore)) {
 			$bi->{$keyword} = grep(/^$keyword$/, @tags);
 		}
 
@@ -361,7 +361,7 @@ sub get_relinfo {
     my $bi = shift;
 
     my $relinfo = "";
-	for my $dist qw(oldstable stable testing unstable experimental) {
+	for my $dist (qw(oldstable stable testing unstable experimental)) {
 	    $relinfo .= uc(substr($dist, 0, 1)) if $bi->{$dist};
 	}