[Rd] Minor bug in maketitle.pl (with bug correction) (PR#864)

[henrikb@braju.com]

Full_Name: Henrik Bengtsson
Version: rw1022
OS: Windows Me
Submission from: (NULL) (216.175.126.55)


When ${R_HOME}/share/perl/maketitle.pl tries to generate a TITLE that is longer
than $lc-3 (=13) characters long, it repeats the package name on line two.

Example: Now it generates an output like:
com.braju.graphics
com.braju.graphics                Bla bla bla...

But, I believe it should generate:
com.braju.graphics
                Bla bla bla...

To solve this minor bug, just include a line '$old=""'. See line 49 below.

maketitle.pl:
L42: $S = '';
L43: $lc = 16;
L44: $rc = 72;
L45: $old = $package;
L46: $len = length($old);
L47: if ($len > $lc - 3) {
L48:   $S = $old;
L49:   $old = "";                    ### Forgot to this line.
L50:   for ($j = 1; $j < $lc; $j++) {
L51:     $old = $old . ' ';
L52:   }
L53: }
L54: else {
L55:   for ($j = 1; $j < $lc - $len; $j++) {
L56:     $old = $old . ' ';
L57:   }
L58: }


-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._