# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1159563150 0
# Node ID a72761a099d3202b747e0b7d925c612da1ed79cc
# Parent  1ddd29aeaa3b556661c804cd2b413e092ef5d247
(cperl-after-expr-p): Don't move point
to nil if there is no previous property change.

diff -r 1ddd29aeaa3b -r a72761a099d3 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Fri Sep 29 18:54:51 2006 +0000
+++ b/lisp/progmodes/cperl-mode.el	Fri Sep 29 20:52:30 2006 +0000
@@ -3914,12 +3914,14 @@
 	(if (get-text-property (point) 'here-doc-group)
 	    (progn
 	      (goto-char
-	       (previous-single-property-change (point) 'here-doc-group))
+	       (or (previous-single-property-change (point) 'here-doc-group)
+		   (point)))
 	      (beginning-of-line 0)))
 	(if (get-text-property (point) 'in-pod)
 	    (progn
 	      (goto-char
-	       (previous-single-property-change (point) 'in-pod))
+	       (or (previous-single-property-change (point) 'in-pod)
+		   (point)))
 	      (beginning-of-line 0)))
 	(if (looking-at "^[ \t]*\\(#\\|$\\)") nil ; Only comment, skip
 	  ;; Else: last iteration, or a label