r1945 - in packages/libpdf-report-perl/trunk: . debian

Russ Allbery rra at costa.debian.org
Mon Jan 16 22:30:54 UTC 2006


Author: rra
Date: 2006-01-16 22:30:53 +0000 (Mon, 16 Jan 2006)
New Revision: 1945

Modified:
   packages/libpdf-report-perl/trunk/Report.pm
   packages/libpdf-report-perl/trunk/debian/changelog
Log:
* Fix some POD errors in the PDF::Report documentation.

Modified: packages/libpdf-report-perl/trunk/Report.pm
===================================================================
--- packages/libpdf-report-perl/trunk/Report.pm	2006-01-16 22:26:15 UTC (rev 1944)
+++ packages/libpdf-report-perl/trunk/Report.pm	2006-01-16 22:30:53 UTC (rev 1945)
@@ -67,6 +67,8 @@
 
 =head1 METHODS
 
+=over 4
+
 =item my $pdf = new PDF::Report(%opts);
 
 	Creates a new pdf report object.  
@@ -270,30 +272,32 @@
 
 }
 
-=item PDF::API2 Removes all space between every word in the string you pass 
+=pod
+
+PDF::API2 Removes all space between every word in the string you pass 
 and then rejoins each word with one space.  If you want to use a string with 
 more than one space between words for formatting purposes, you can either use 
 the hack below or change PDF::API2 (that's what I did ;).  The code below may
 or may not work according to what font you are using.  I used 2 \xA0 per space 
 because that worked for the Helvetica font I was using. 
 
-=item B<To use a fixed width string with more than one space between words, you can do something like:>
+B<To use a fixed width string with more than one space between words, you can do something like:>
 
-sub replaceSpace {
-  my $text = shift;
-  my $nbsp = "\xA0";
-  my $new = '';
-  my @words = split(/ /, $text);
-  foreach my $word (@words) {
-    if (length($word)) {
-      $new.=$word . ' ';
-    } else {
-      $new.=$nbsp . $nbsp;
+    sub replaceSpace {
+      my $text = shift;
+      my $nbsp = "\xA0";
+      my $new = '';
+      my @words = split(/ /, $text);
+      foreach my $word (@words) {
+        if (length($word)) {
+          $new.=$word . ' ';
+        } else {
+          $new.=$nbsp . $nbsp;
+        }
+      } 
+      chop($new);
+      return $new;
     }
-  } 
-  chop($new);
-  return $new;
-}
 
 =cut
 
@@ -1070,6 +1074,10 @@
 }
 ### END GLOBAL SUBS ###########################################################
 
+=back
+
+=cut
+
 ### PRIVATE SUBS ##############################################################
 sub gen_page_footer {
   my $self = shift;

Modified: packages/libpdf-report-perl/trunk/debian/changelog
===================================================================
--- packages/libpdf-report-perl/trunk/debian/changelog	2006-01-16 22:26:15 UTC (rev 1944)
+++ packages/libpdf-report-perl/trunk/debian/changelog	2006-01-16 22:30:53 UTC (rev 1945)
@@ -2,11 +2,12 @@
 
   * Scale barcodes correctly.  Thanks, jim at short.circuit.com.
     (Closes: #343937)
+  * Fix some POD errors in the PDF::Report documentation.
   * Remove commented-out templates in debian/rules per ftp-master.
   * Remove obsolete source and diff rules.
   * Use debian/compat rather than DH_COMPAT per debhelper recommendation.
 
- -- Russ Allbery <rra at debian.org>  Mon, 16 Jan 2006 14:25:07 -0800
+ -- Russ Allbery <rra at debian.org>  Mon, 16 Jan 2006 14:30:26 -0800
 
 libpdf-report-perl (1.30-2) unstable; urgency=low
 




More information about the Pkg-perl-cvs-commits mailing list