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