#78 and #80

Author: PhilterPaper

Changes

@@ -1,5 +1,19 @@
 Change history for Perl extension PDF::Table.
 
+=== Version 1.007 (2025-03-19) (unreleased)
+
+    devtools/PDFversion.pl, devtools/TableBuild.pl, util/3_examples.pl
+     Updated to modern Perl standards to make 1_pc.pl PerlCritic happy.
+
+    lib/PDF/Table.pm
+     Permit 'trans' or 'transparent' background color (mostly for overriding
+      a default bg color). Per #80 (reported by @az143).
+
+    lib/PDF/Table.pm, examples/colspan.pl
+     Fix colspan interference with a header row. Add (commented out) test
+      code to show effect in colspan example. Per #78 (reported and fix 
+      supplied by @BlueWlvrn).
+
 === Version 1.006 (2024-03-21)
 
     devtools/*

devtools/PDFversion.pl

@@ -1,3 +1,7 @@
+#!/usr/bin/perl
+    use strict;
+    use warnings;
+
 #my $ourLAST = 1;  # T: change my $LAST_UPDATE to our $LAST_UPDATE
 
     my $src = $ARGV[0];  # directory root to work in for this call
@@ -18,14 +22,15 @@ sub update_version {
 
     my @types = ('pl', 'pm');  # places to look for pattern in
     my @read_only = (0, 0);  # places to expect to be R/O
+    my ($SRC, $IN, $OUT);
 
     # open this directory for reading
-    opendir(SRC, "$src") || die "unable to open dir '$src': $!";
+    opendir($SRC, "$src") || die "unable to open dir '$src': $!";
 
     my @dirList = ();
     my @fileList = ();
 
-    while ($entry = readdir(SRC)) {
+    while ($entry = readdir($SRC)) {
         if ($entry eq '.' || $entry eq '..') { next; }
 
         if (-d "$src\\$entry") {
@@ -42,10 +47,10 @@ sub update_version {
 
     # done reading, so close directory
     # have list of files and subdirectories within this one
-    closedir(SRC);
+    closedir($SRC);
 
     while ($name = shift(@fileList)) {
-if ($name =~ m/ - Copy/) { next; }
+        if ($name =~ m/ - Copy/) { next; }
         # $name is full file path and name
 	$ro_flag = 0;
 	for (my $i=0; $i<scalar @types; $i++) {
@@ -55,24 +60,24 @@ sub update_version {
 	# make Read-Write
 	if ($ro_flag) { system("attrib -R $name"); }
 
-        unless (open(IN, "<$name")) { 
+        unless (open($IN, "<", $name)) { 
             die "Unable to update $name with version\n";
         }
-        unless (open(OUT, ">$outtemp")) { 
+        unless (open($OUT, ">", $outtemp)) { 
             die "Unable to open temporary output file $outtemp\n";
         }
 
-        while ($line = <IN>) {
+        while ($line = <$IN>) {
 	    # $line still has line-end \n
             $line =~ s/$pattern/$newVer/;
 	   #if ($ourLAST) {
 	   #    $line =~ s/^my \$LAST_UPDATE/our \$LAST_UPDATE/;
 	   #}
-	    print OUT $line;
+	    print $OUT $line;
         }
 
-        close(IN);
-        close(OUT);
+        close($IN);
+        close($OUT);
         $outtemp =~ s#/#\\#g;
         $name =~ s#/#\\#g;
 	system("copy $outtemp $name");
@@ -87,4 +92,5 @@ sub update_version {
         update_version($entry);
     }
 
+    return;
 }