From 1851d62461f9bccaea805266612b5ed59db22824 Mon Sep 17 00:00:00 2001 From: Thadeu Lima de Souza Cascardo Date: Fri, 24 Apr 2015 06:40:00 -0300 Subject: [PATCH] Quote package names in regexps When interpolating packaga names in regexps, quote them, so package names like g++-4.9 will not be considere as a regexp, preventing them to match said package name. --- debsort.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/debsort.pl b/debsort.pl index 318e524..969f6f7 100644 --- a/debsort.pl +++ b/debsort.pl @@ -132,20 +132,20 @@ push @visit, "build-essential"; while (@visit) { my $n = pop @visit; - next if grep /^$n$/, @pp; + next if grep /^\Q$n\E$/, @pp; push @pp, $n; my $source = $csource{$n}; - if ($source and !grep /^$source$/, @vsource) { + if ($source and !grep /^\Q$source\E$/, @vsource) { push @vsource, $source; for my $b (@{$bdeps{$source}}) { - if (!grep /^$b$/, @pp && !grep /^$b$/, @visit) { + if (!grep /^\Q$b\E$/, @pp && !grep /^\Q$b\E$/, @visit) { push @visit, $b; } } } my $l = $depends{$n}; for my $d (@$l) { - if (!grep /^$d$/, @pp && !grep /^$d$/, @visit) { + if (!grep /^\Q$d\E$/, @pp && !grep /^\Q$d\E$/, @visit) { push @visit, $d; } } -- 2.20.1