From: Andreas Barth <aba@not.so.argh.org>
Date: Wed, 30 Mar 2011 20:37:05 +0000 (+0000)
Subject: fix 4572e2d58812a9c5f422a8c2e2401c441d528bb
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;ds=sidebyside;h=04f27ccc2952e6bebc3ebbf20409ca1af3b6e958;p=wannabuild.git

fix 4572e2d58812a9c5f422a8c2e2401c441d528bb
---

diff --git a/lib/WB/QD.pm b/lib/WB/QD.pm
index 8391fc3..4c2806f 100644
--- a/lib/WB/QD.pm
+++ b/lib/WB/QD.pm
@@ -15,15 +15,15 @@ sub readsourcebins {
 
     my $pas = {};
     local($/) = "\n";
-    open(my $pas, '<', $pasfile);
-    while(<$pas>) {
+    open(my $pasf, '<', $pasfile);
+    while(<$pasf>) {
         chomp;
         s,\s*#.*,,;
         next unless $_;
         my ($p, $c) = split(/:\s*/);
         $pas->{$p} = { arch => [ split(/\s+/, $c) ], mode => substr($c, 0, 1) ne '!' };
     }
-    close $pas;
+    close $pasf;
 
     my $srcs = {};
     local($/) = ""; # read in paragraph mode