[elpa] externals/perl-doc deccc5790a 2/2: perl-doc: Fixes to make it fit for GNU ELPA

[ELPA Syncer]

branch: externals/perl-doc
commit deccc5790ab5026460550a728f9552604b67194c
Author: Harald Jörg <haj@posteo.de>
Commit: Harald Jörg <haj@posteo.de>

    perl-doc: Fixes to make it fit for GNU ELPA
    
    * perl-doc.el: Assign Copyright to FSF
    (perl-doc-mode-map): fix function symbols
    trailer: fix typo in file name
---
 .gitignore  | 39 ++++-----------------------------------
 perl-doc.el |  9 +++++----
 2 files changed, 9 insertions(+), 39 deletions(-)

diff --git a/.gitignore b/.gitignore
index ecf66f8429..c9320a542a 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,35 +1,4 @@
-!Build/
-.last_cover_stats
-/META.yml
-/META.json
-/MYMETA.*
-*.o
-*.pm.tdy
-*.bs
-
-# Devel::Cover
-cover_db/
-
-# Devel::NYTProf
-nytprof.out
-
-# Dizt::Zilla
-/.build/
-
-# Module::Build
-_build/
-Build
-Build.bat
-
-# Module::Install
-inc/
-
-# ExtUtils::MakeMaker
-/blib/
-/_eumm/
-/*.gz
-/Makefile
-/Makefile.old
-/MANIFEST.bak
-/pm_to_blib
-/*.zip
+# ELPA-generated files
+/perl-doc-autoloads.el
+/perl-doc-pkg.el
+*.elc
diff --git a/perl-doc.el b/perl-doc.el
index c11677ae8a..6c29389701 100644
--- a/perl-doc.el
+++ b/perl-doc.el
@@ -1,6 +1,6 @@
 ;;; perl-doc.el --- Read Perl documentation -*- lexical-binding: t -*-
 
-;; Copyright (C) 2022 Harald Jörg
+;; Copyright (C) 2022  Free Software Foundation, Inc.
 
 ;; Author: Harald Jörg <haj@posteo.de>
 ;; Maintainer: Harald Jörg <haj@posteo.de>
@@ -109,8 +109,8 @@ This is only relevant for developers, not for users.")
     (set-keymap-parent map
       (make-composed-keymap button-buffer-map special-mode-map))
     (define-key map [follow-link] 'mouse-face)
-    (define-key map [mouse-2] 'perl-doc-browse-url)
-    (define-key map "\r" 'perl-doc-browse-url)
+    (define-key map [mouse-2] #'perl-doc-browse-url)
+    (define-key map "\r" #'perl-doc-browse-url)
     map)
   "A keymap to allow following links in perldoc buffers.")
 
@@ -307,6 +307,7 @@ which seem to work, at least, with some formatters."
 (defvar-local perl-doc-current-section nil)
 (defvar-local perl-doc-text-scale nil)
 
+;;;###autoload
 (defun perl-doc (word &optional section)
   "Get Perl documentation like the perldoc command.
 Does better formatting than man pages, including hyperlinks."
@@ -514,4 +515,4 @@ We don't care which heading, therefore the expected value 
(first
   (not (member expected (if (listp got) got (list got)))))
  
 (provide 'perl-doc)
-;;; perldoc.el ends here
+;;; perl-doc.el ends here