open-src/common/suntouch-manpages.pl
changeset 1292 abc01af9a0c7
parent 1079 86981537ef98
child 1402 7373cf518070
--- a/open-src/common/suntouch-manpages.pl	Wed May 23 10:23:01 2012 +0530
+++ b/open-src/common/suntouch-manpages.pl	Thu May 24 17:38:42 2012 -0700
@@ -1,7 +1,7 @@
 #!/usr/perl5/bin/perl -w
 
 #
-# Copyright (c) 2006, 2011, Oracle and/or its affiliates. All rights reserved.
+# Copyright (c) 2006, 2012, Oracle and/or its affiliates. All rights reserved.
 #
 # Permission is hereby granted, free of charge, to any person obtaining a
 # copy of this software and associated documentation files (the "Software"),
@@ -111,6 +111,9 @@
     }
   }
 
+  if ($text_subref) {
+    $firstline = &$text_subref($firstline);
+  }
   print OUT $firstline;
 
   my $nextline;