This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Factor out a constant string to a variable
authorKarl Williamson <public@khwilliamson.com>
Tue, 11 Oct 2011 01:54:27 +0000 (19:54 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:25 +0000 (08:09 -0700)
A future commit will want to use this same text.

lib/unicore/mktables

index c43b39e..2c574dd 100644 (file)
@@ -13060,6 +13060,8 @@ sub make_pod () {
     # Create the .pod file.  This generates the various subsections and then
     # combines them in one big HERE document.
 
+    my $Is_flags_text = "If an entry has flag(s) at its beginning, like \"$DEPRECATED\", the \"Is_\" form has the same flag(s)";
+
     return unless defined $pod_directory;
     print "Making pod file\n" if $verbosity >= $PROGRESS;
 
@@ -13091,7 +13093,7 @@ e.g., C<\\p{blk:latin1}>.  See L<perlunicode/"Blocks"> for more information
 about this.
 END
     }
-    my $text = "If an entry has flag(s) at its beginning, like \"$DEPRECATED\", the \"Is_\" form has the same flag(s)";
+    my $text = $Is_flags_text;
     $text = "$exception_message $text" if $has_Is_conflicts;
 
     # And the 'Is_ line';