File: 12-look_for_pod.patch

package info (click to toggle)
bash-completion 1%3A2.1-4
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 7,740 kB
  • ctags: 31
  • sloc: exp: 8,230; makefile: 948; sh: 727; perl: 59; python: 26; xml: 13; ansic: 6
file content (23 lines) | stat: -rw-r--r-- 765 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
From: Carl Hayter <zengargoyle@gmail.com>
Subject: perldoc: look for .pod in addition to .pm files
Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=708173
Origin: vendor, https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=708173
Forwarded: no

---
 helpers/perl |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

--- bash-completion.orig/helpers/perl
+++ bash-completion/helpers/perl
@@ -23,8 +23,8 @@ sub print_modules_real {
     chdir($dir) or return;
 
     # print each file
-    foreach my $file (glob('*.pm')) {
-        $file =~ s/\.pm$//;
+    foreach my $file (glob('*.{pm,pod}')) {
+        $file =~ s/\.(?:pm|pod)$//;
         my $module = $base . $file;
         next if $module !~ /^\Q$word/;
         next if $seen{$module}++;