From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 11 Oct 2006 09:38:37 +0000 (+0000)
Subject: Update comment (by Yves Orton), plus POD fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dba3f186d8c869e7d758c2fbacce9612063a3e15;p=p5sagit%2Fp5-mst-13.2.git

Update comment (by Yves Orton), plus POD fixes

p4raw-id: //depot/perl@28994
---

diff --git a/ext/re/re.pm b/ext/re/re.pm
index d4c4ac1..c9ea580 100644
--- a/ext/re/re.pm
+++ b/ext/re/re.pm
@@ -184,9 +184,9 @@ Enable DUMP and all execute options. Equivelent to:
 
 Enable TRIE_MORE and all execute compile and execute options.
 
-=back 4
+=back
 
-=back 4
+=back
 
 The directive C<use re 'debug'> and its equivalents are I<not> lexically
 scoped, as the other directives are.  They have both compile-time and run-time
@@ -260,15 +260,16 @@ sub _load_unload {
         }
         if ( ! $installed ) {
             die "'re' not installed!? ($installed_error)";
-        }  else {
-            # We could just say = $installed; but then we wouldn't
-            # "see" any changes to the color environment var.
-
-            # install() returns an integer, which if casted properly
-            # in C resolves to a structure containing the regex
-            # hooks. Setting it to a random integer will guarantee
-            # segfaults.
-            $^H{regcomp} = install();
+	} else {
+	    # We call install() every time, as if we didn't, we wouldn't
+	    # "see" any changes to the color environment var since
+	    # the last time it was called.
+
+	    # install() returns an integer, which if casted properly
+	    # in C resolves to a structure containing the regex
+	    # hooks. Setting it to a random integer will guarantee
+	    # segfaults.
+	    $^H{regcomp} = install();
         }
     } else {
         delete $^H{regcomp};