Browse Source

localise $_

tags/2.07
Joey Hess 17 years ago
parent
commit
04a4718559
1 changed files with 2 additions and 0 deletions
  1. +2
    -0
      tasksel.pl

+ 2
- 0
tasksel.pl View File

@@ -83,6 +83,7 @@ sub list_avail {
# Might be better to use the perl apt bindings, but they are not
# currently in base.
open (AVAIL, "apt-cache dumpavail|");
local $_;
while (<AVAIL>) {
chomp;
if (/^Package: (.*)/) {
@@ -98,6 +99,7 @@ sub list_installed {
my @list;
local $/="\n\n";
open (STATUS, $statusfile);
local $_;
while (<STATUS>) {
if (/^Status: .* installed$/m && /Package: (.*)$/m) {
push @list, $1;


Loading…
Cancel
Save