| 972,8 → 972,7 |
|---|
| # without the epoch" -- it is more or less arbitrary, as long |
| # as it is a well-formed version number). |
| |
| my($filepat) = "${package}_.*_${arch}\\.deb"; |
| $filepat =~ s/\+/\\\+/; |
| my($filepat) = qr/^\Q${package}_\E.*\Q_${arch}.deb\E$/; |
| |
| my($section) = Guess_Section($changes_data); |
| my($pool) = join('/', (PoolDir($source, $section), $source)); |
| 985,7 → 984,7 |
|---|
| # for later use. |
| |
| for $count (0..$#files) { |
| if ($files[$count]->{'Filename'} =~ m/$filepat/) { |
| if ($files[$count]->{'Filename'} =~ $filepat) { |
| $marker = $count; |
| } |
| } |