--- add-log.el	10 Sep 2007 08:53:06 +0100	1.195
+++ add-log.el	20 Sep 2007 09:44:54 +0100	
@@ -802,6 +802,11 @@
   "*Modes that look like TeX to `add-log-current-defun'.")
 
 ;;;###autoload
+(defvar add-log-perl-like-modes
+  '(perl-mode cperl-mode)
+  "*Modes that look like Perl to `add-log-current-defun'.")
+
+;;;###autoload
 (defun add-log-current-defun ()
   "Return name of function definition point is in, or nil.
 
@@ -1016,7 +1021,7 @@
 		((derived-mode-p 'texinfo-mode)
 		 (if (re-search-backward "address@hidden \t]+\\([^,\n]+\\)" nil t)
 		     (match-string-no-properties 1)))
-		((derived-mode-p '(perl-mode cperl-mode))
+		((apply 'derived-mode-p add-log-perl-like-modes)
 		 (if (re-search-backward "^sub[ \t]+\\([^({ \t\n]+\\)" nil t)
 		     (match-string-no-properties 1)))
 		;; Emacs's autoconf-mode installs its own