Skip to content

Commit b816b47

Browse files
PhilterPaperPhilterPaper
committed
strict fixes, version update, copyright update, prep for 1.008
1 parent d744a4d commit b816b47

File tree

9 files changed

+40
-25
lines changed

9 files changed

+40
-25
lines changed

‎Changes‎

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,12 @@
11
Change history for Perl extension PDF::Table.
22

3-
=== Version 1.007 (2025-03-19) (unreleased)
3+
=== Version 1.008 (2025-03-25) UNRELEASED
4+
5+
* all Deprecated items updated
6+
7+
* consolidate A/B choice in lib/PDF/Table/ChooseDriver.pm
8+
9+
=== Version 1.007 (2025-03-25)
410

511
devtools/PDFversion.pl, devtools/TableBuild.pl, util/3_examples.pl
612
Updated to modern Perl standards to make 1_pc.pl PerlCritic happy.

‎INFO/Table.html‎

Lines changed: 13 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
<!--
66
generated by Pod::Simple::HTML v3.45,
77
using Pod::Simple::PullParser v3.45,
8-
under Perl v5.032001 at Wed Mar 20 00:52:35 2024 GMT.
8+
under Perl v5.032001 at Tue Mar 25 16:38:07 2025 GMT.
99
1010
If you want to change this HTML document, you probably shouldn't do that
1111
by changing it directly. Instead, see about changing the calling options
@@ -24,6 +24,9 @@
2424
<li class='indexItem indexItem1'><a href='#NAME'>NAME</a>
2525
<li class='indexItem indexItem1'><a href='#SYNOPSIS'>SYNOPSIS</a>
2626
<ul class='indexList indexList2'>
27+
<ul class='indexList indexList3'>
28+
<li class='indexItem indexItem3'><a href='#Note_on_product_usage'>Note on product usage</a>
29+
</ul>
2730
<li class='indexItem indexItem2'><a href='#EXAMPLE'>EXAMPLE</a>
2831
</ul>
2932
<li class='indexItem indexItem1'><a href='#DESCRIPTION'>DESCRIPTION</a>
@@ -73,6 +76,10 @@ <h1><a class='u' href='#___top' title='click to go to top of document'
7376
name="SYNOPSIS"
7477
>SYNOPSIS</a></h1>
7578

79+
<h3><a class='u' href='#___top' title='click to go to top of document'
80+
name="Note_on_product_usage"
81+
>Note on product usage</a></h3>
82+
7683
<p>Rather than cluttering up the following documentation with <b>(or PDF::API2)</b> additions,
7784
wherever it refers to <code>PDF::Builder</code>,
7885
understand that you can substitute <code>PDF::API2</code> to use that product instead <i>EXCEPT where noted</i>.</p>
@@ -119,7 +126,7 @@ <h1><a class='u' href='#___top' title='click to go to top of document'
119126

120127
# do other stuff with $pdf
121128
$pdf-&#62;save();
122-
...</pre>
129+
... and so on</pre>
123130

124131
<h2><a class='u' href='#___top' title='click to go to top of document'
125132
name="EXAMPLE"
@@ -719,6 +726,8 @@ <h4><a class='u' href='#___top' title='click to go to top of document'
719726

720727
<pre> &#39;fg_color&#39; =&#62; &#39;#333333&#39;,</pre>
721728

729+
<p>In order to override any default background color, such as for a header row, you may set the color to &#39;trans&#39; or &#39;transparent&#39;.</p>
730+
722731
<p><b>Deprecated names:</b> <i>font_color, background_color</i> (both will go away in the future!)</p>
723732

724733
<dt><a name="fg_color_odd_-_Font_color_for_odd_rows_(override_fg_color)."
@@ -1175,7 +1184,7 @@ <h1><a class='u' href='#___top' title='click to go to top of document'
11751184
name="VERSION"
11761185
>VERSION</a></h1>
11771186

1178-
<p>1.006</p>
1187+
<p>1.007</p>
11791188

11801189
<h1><a class='u' href='#___top' title='click to go to top of document'
11811190
name="AUTHOR"
@@ -1197,7 +1206,7 @@ <h1><a class='u' href='#___top' title='click to go to top of document'
11971206

11981207
<p>Copyright (C) 2006 by Daemmon Hughes, portions Copyright (C) 2004 Stone Environmental Inc. (www.stone-env.com) All Rights Reserved.</p>
11991208

1200-
<p>Copyright (C) 2020-2024 by Phil M Perry.</p>
1209+
<p>Copyright (C) 2020-2025 by Phil M Perry.</p>
12011210

12021211
<p>This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available. Note that Perl 5.10 is the minimum supported level.</p>
12031212

‎LICENSE‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ Copyright (C) 2006 by Daemmon Hughes
33
Extended by Desislav Kamenov (Twitter @deskata) versions 0.02 - 0.11
44

55
Extended by Phil Perry since version 0.12.
6-
Copyright (C) 2020 - 2024 by Phil M Perry
6+
Copyright (C) 2020 - 2025 by Phil M Perry
77

88
This library is free software; you can redistribute it and/or modify it under
99
the same terms as Perl itself, either Perl version 5.8.7 or, at your option,

‎README.md‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -77,7 +77,7 @@ Copyright (C) 2006 by Daemmon Hughes
7777
Extended by Desislav Kamenov (Twitter @deskata) versions 0.02 - 0.11
7878

7979
Extended by Phil Perry since version 0.12
80-
Copyright (C) 2020 - 2024 by Phil M Perry
80+
Copyright (C) 2020 - 2025 by Phil M Perry
8181

8282
This library is free software; you can redistribute it and/or modify
8383
it under the same terms as Perl itself, either Perl version 5.8.7 or,

‎devtools/PDFversion.pl‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@ sub update_version {
5252
while ($name = shift(@fileList)) {
5353
if ($name =~ m/ - Copy/) { next; }
5454
# $name is full file path and name
55-
$ro_flag = 0;
55+
my $ro_flag = 0;
5656
for (my $i=0; $i<scalar @types; $i++) {
5757
if ($read_only[$i] && $name =~ m/$types[$i]/) { $ro_flag = 1; }
5858
}

‎devtools/TableBuild.pl‎

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,7 @@
2121
unless (open($VER, "<", "version")) {
2222
die "Unable to open input 'version' control file to read! $!\n";
2323
}
24-
my $VERSION = <$VER>; chomp($VERSION); # e.g., '3.011'
24+
my $VERSION = <$VER>; chomp($VERSION); # e.g., '1.007'
2525
close $VER;
2626
print "**** file 'version' contains '$VERSION'.\n";
2727
to_continue();
@@ -51,17 +51,17 @@
5151
my $temp = $desktop."temp";
5252

5353
# location of 7-Zip
54-
$sevenZip = "\"C:\\Program Files\\7-Zip\\7z.exe\"";
55-
$cmd7Zip = $sevenZip . " a -r ";
54+
my $sevenZip = "\"C:\\Program Files\\7-Zip\\7z.exe\"";
55+
my $cmd7Zip = $sevenZip . " a -r ";
5656

5757
# location of pod2html
58-
$pod2html = "pod2html"; # should be in PATH
58+
my $pod2html = "pod2html"; # should be in PATH
5959

60-
$baseDirSrc = $desktop . "$GHname\\";
61-
#$outputBasename = "PDF-API2-" . substr($dirName, 1);
60+
my $baseDirSrc = $desktop . "$GHname\\";
61+
my $outputBasename = "$GHname-$VERSION";
6262

63-
# absolute path so POD links will work
64-
#$podBase = "/Free.SW/PDF-API2/$dirName/docs/lib/";
63+
# absolute path so POD links will work (currently unused)
64+
my $podBase = "/Free.SW/PDF-Table/$GHname/docs/lib/";
6565
# --------------------------------------
6666

6767
# check for any files suffixed ~ or .bak (backup files) in source
@@ -423,7 +423,7 @@ sub makeHTML {
423423
# $input is full file path and name
424424
# $output is full file path and name
425425
# if dir for output doesn't exist yet, mkdir it
426-
$outpath = $output;
426+
my $outpath = $output;
427427
$outpath =~ s/^[a-z]://i; # strip off drive
428428
$outpath =~ s/\\[^\\]+$//;
429429
if (!-d $outpath."\\") {
@@ -436,7 +436,7 @@ sub makeHTML {
436436
while ($outfile =~ m#<a>(.*?)</a>#) {
437437
# outfile $output contains <a> in need of fixup
438438
# presumably we won't find orphan <a>'s with </a> on next line
439-
$href = $1;
439+
my $href = $1;
440440
$href =~ s#::#/#g; # globally change :: to /
441441
# expect href to start with PDF/, so podBase is /Free.SW...lib/
442442
$href = 'href="' . $podBase . $href . '.html"'; # absolute path, .html fileext
@@ -554,7 +554,7 @@ sub update_VERSION {
554554
my $src = shift; # single directory to work in for this call
555555
my $ro_flag = shift; # true if expect R/O file
556556

557-
my ($entry, $name, $entry, $line);
557+
my ($name, $entry, $line);
558558
my $pattern = '^# VERSION';
559559
my $newVer = "our \$VERSION = '$VERSION'; # VERSION";
560560

‎lib/PDF/Table.pm‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@ package PDF::Table;
99

1010
# portions (c) copyright 2004 Stone Environmental Inc.
1111
# (c) copyright 2006 Daemmon Hughes
12-
# (c) copyright 2020 - 2024 by Phil M. Perry
12+
# (c) copyright 2020 - 2025 by Phil M. Perry
1313

1414
use Carp;
1515
use List::Util qw[min max]; # core
@@ -18,8 +18,8 @@ use PDF::Table::ColumnWidth;
1818
use PDF::Table::Settings;
1919
# can't move text_block() b/c many globals referenced
2020

21-
our $VERSION = '1.006'; # fixed, read by Makefile.PL
22-
our $LAST_UPDATE = '1.006'; # manually update whenever code is changed
21+
our $VERSION = '1.007'; # fixed, read by Makefile.PL
22+
our $LAST_UPDATE = '1.007'; # manually update whenever code is changed
2323
# don't forget to update VERSION down in POD area
2424

2525
my $compat_mode = 0; # 0 = new behaviors, 1 = compatible with old

‎lib/PDF/Table.pod‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -55,7 +55,7 @@ substitute C<PDF::API2> to use that product instead I<EXCEPT where noted>.
5555

5656
# do other stuff with $pdf
5757
$pdf->save();
58-
...
58+
... and so on
5959

6060
=head2 EXAMPLE
6161

@@ -1269,7 +1269,7 @@ Further development since Ver: 0.12 - Phil Perry
12691269
Copyright (C) 2006 by Daemmon Hughes, portions Copyright (C) 2004 Stone
12701270
Environmental Inc. (www.stone-env.com) All Rights Reserved.
12711271

1272-
Copyright (C) 2020-2024 by Phil M Perry.
1272+
Copyright (C) 2020-2025 by Phil M Perry.
12731273

12741274
This library is free software; you can redistribute it and/or modify
12751275
it under the same terms as Perl itself, either Perl version 5.8.7 or,

‎version‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
1.007
1+
1.008

0 commit comments

Comments
 (0)