texlive[64227] trunk: pedigree-perl (29aug22)

commits+karl at tug.org commits+karl at tug.org
Mon Aug 29 22:00:05 CEST 2022


Revision: 64227
          http://tug.org/svn/texlive?view=revision&revision=64227
Author:   karl
Date:     2022-08-29 22:00:05 +0200 (Mon, 29 Aug 2022)
Log Message:
-----------
pedigree-perl (29aug22)

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/pedigree-perl/pedigree.pl
    trunk/Master/texmf-dist/doc/man/man1/pedigree.1
    trunk/Master/texmf-dist/doc/man/man1/pedigree.man1.pdf
    trunk/Master/texmf-dist/doc/support/pedigree-perl/NEWS
    trunk/Master/texmf-dist/doc/support/pedigree-perl/README
    trunk/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl
    trunk/Master/texmf-dist/source/latex/pedigree-perl/Makefile

Modified: trunk/Build/source/texk/texlive/linked_scripts/pedigree-perl/pedigree.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/pedigree-perl/pedigree.pl	2022-08-29 14:19:06 UTC (rev 64226)
+++ trunk/Build/source/texk/texlive/linked_scripts/pedigree-perl/pedigree.pl	2022-08-29 20:00:05 UTC (rev 64227)
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 #
-# Copyright (C) 2006-2021 Boris Veytsman & Leila Akhmadeeva
+# Copyright (C) 2006-2022 Boris Veytsman & Leila Akhmadeeva
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -92,7 +92,7 @@
 
 =head1  AUTHOR
 
-Boris Veytsman, Leila Akhmadeeva, 2006-2021
+Boris Veytsman, Leila Akhmadeeva, 2006-2022
 
 
 =cut
@@ -111,12 +111,14 @@
 my $TLMaster;      # Where TeXlive is
 my $TLCONF;        # TL config file
 my $TLCONFLOCAL;   # TL local config file
-chomp($TLMaster = `kpsewhich -var-value=TEXMFROOT`);
-if (length($TLMaster)) {
-    unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
-    $TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
-    chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
-    $TLCONFLOCAL .= "/pedigree/pedigree.cfg";
+BEGIN {
+    chomp($TLMaster = `kpsewhich -var-value=TEXMFROOT`);
+    if (length($TLMaster)) {
+	unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
+	$TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
+	chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
+	$TLCONFLOCAL .= "/pedigree/pedigree.cfg";
+    }
 }
 
 use Getopt::Std;
@@ -129,9 +131,9 @@
 
 my $USAGE="Usage: $0 [-c configuration_file] [-d] [-o output_file] [-s start_id] input_file\n";
 my $COPYRIGHT=<<END;
-$0 Version 0.5, October 2021
+$0 Version 2.1, August 2022
 
-Copyright (C) 2006-2021 Boris Veytsman & Leila Akhmadeeva
+Copyright (C) 2006-2022 Boris Veytsman & Leila Akhmadeeva
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by

Modified: trunk/Master/texmf-dist/doc/man/man1/pedigree.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/pedigree.1	2022-08-29 14:19:06 UTC (rev 64226)
+++ trunk/Master/texmf-dist/doc/man/man1/pedigree.1	2022-08-29 20:00:05 UTC (rev 64227)
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
+.\" Automatically generated by Pod::Man 4.11 (Pod::Simple 3.35)
 .\"
 .\" Standard preamble:
 .\" ========================================================================
@@ -133,7 +133,7 @@
 .\" ========================================================================
 .\"
 .IX Title "pedigree 1"
-.TH pedigree 1 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
+.TH pedigree 1 "2022-08-29" "perl v5.30.3" "User Contributed Perl Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l
@@ -190,4 +190,4 @@
 \&\fBPedigree::MarriageNode\fR\|(3), \fBPedigree::Area\fR\|(3).
 .SH "AUTHOR"
 .IX Header "AUTHOR"
-Boris Veytsman, Leila Akhmadeeva, 2006\-2021
+Boris Veytsman, Leila Akhmadeeva, 2006\-2022

Modified: trunk/Master/texmf-dist/doc/man/man1/pedigree.man1.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/support/pedigree-perl/NEWS
===================================================================
--- trunk/Master/texmf-dist/doc/support/pedigree-perl/NEWS	2022-08-29 14:19:06 UTC (rev 64226)
+++ trunk/Master/texmf-dist/doc/support/pedigree-perl/NEWS	2022-08-29 20:00:05 UTC (rev 64227)
@@ -1,5 +1,9 @@
 pedigree NEWS:  History of user interface changes
 
+Changes in v2.1, 2022/08/28
+
+* Moved initialization to BEGIN block (suggested by Norbert Preining)
+
 Changes in v2.0, 2021/10/02
 
 * Moved from SELFAUTOPARENT to TEXMFROOT for better packaging

Modified: trunk/Master/texmf-dist/doc/support/pedigree-perl/README
===================================================================
--- trunk/Master/texmf-dist/doc/support/pedigree-perl/README	2022-08-29 14:19:06 UTC (rev 64226)
+++ trunk/Master/texmf-dist/doc/support/pedigree-perl/README	2022-08-29 20:00:05 UTC (rev 64227)
@@ -1,6 +1,6 @@
        A Program for Generation  TeX Pedigrees From CSV Files
 		  Boris Veytsman & Leila Akhmadeeva
-		       Version 2.0, October 2021
+		       Version 2.1, August 2022
 
 This program generates TeX commands to typeset pedigrees - either TeX
 fragments of full LaTeX files.  It has support for multilanguage
@@ -23,7 +23,7 @@
 
 3.  Optionally install man pages & documentation.
 
-Copyright 2006-2021, Boris Veytsman <borisv at lk.net>, Leila Akhmadeeva
+Copyright 2006-2022, Boris Veytsman <borisv at lk.net>, Leila Akhmadeeva
 
 This work may be distributed and/or modified under the conditions of
 the GNU Public License, either version 2 of this license or (at your

Modified: trunk/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl	2022-08-29 14:19:06 UTC (rev 64226)
+++ trunk/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl	2022-08-29 20:00:05 UTC (rev 64227)
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 #
-# Copyright (C) 2006-2021 Boris Veytsman & Leila Akhmadeeva
+# Copyright (C) 2006-2022 Boris Veytsman & Leila Akhmadeeva
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -92,7 +92,7 @@
 
 =head1  AUTHOR
 
-Boris Veytsman, Leila Akhmadeeva, 2006-2021
+Boris Veytsman, Leila Akhmadeeva, 2006-2022
 
 
 =cut
@@ -111,12 +111,14 @@
 my $TLMaster;      # Where TeXlive is
 my $TLCONF;        # TL config file
 my $TLCONFLOCAL;   # TL local config file
-chomp($TLMaster = `kpsewhich -var-value=TEXMFROOT`);
-if (length($TLMaster)) {
-    unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
-    $TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
-    chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
-    $TLCONFLOCAL .= "/pedigree/pedigree.cfg";
+BEGIN {
+    chomp($TLMaster = `kpsewhich -var-value=TEXMFROOT`);
+    if (length($TLMaster)) {
+	unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
+	$TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
+	chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
+	$TLCONFLOCAL .= "/pedigree/pedigree.cfg";
+    }
 }
 
 use Getopt::Std;
@@ -129,9 +131,9 @@
 
 my $USAGE="Usage: $0 [-c configuration_file] [-d] [-o output_file] [-s start_id] input_file\n";
 my $COPYRIGHT=<<END;
-$0 Version 0.5, October 2021
+$0 Version 2.1, August 2022
 
-Copyright (C) 2006-2021 Boris Veytsman & Leila Akhmadeeva
+Copyright (C) 2006-2022 Boris Veytsman & Leila Akhmadeeva
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by

Modified: trunk/Master/texmf-dist/source/latex/pedigree-perl/Makefile
===================================================================
--- trunk/Master/texmf-dist/source/latex/pedigree-perl/Makefile	2022-08-29 14:19:06 UTC (rev 64226)
+++ trunk/Master/texmf-dist/source/latex/pedigree-perl/Makefile	2022-08-29 20:00:05 UTC (rev 64227)
@@ -1,6 +1,6 @@
 #
 # Makefile for pedigree
-# $Id: Makefile,v 2.2 2007-07-29 19:52:51 boris Exp $
+# $Id: Makefile,v 2.3 2022/08/29 03:04:29 boris Exp $
 # 
 # This file is in public domain
 #
@@ -54,4 +54,4 @@
 # Archive for the distribution. Includes typeset documentation and man pages
 #
 archive:  all docs clean
-	tar -czvf pedigree.tgz --exclude '*~' --exclude '*.tgz' --exclude CVS .
+	COPYFILE_DISABLE=1 tar -czvf pedigree.tgz --exclude '*~' --exclude '*.tgz' --exclude CVS .



More information about the tex-live-commits mailing list.