From 3112b258daa16ced26a6acaae6e240f2820d82d2 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 29 Aug 2022 20:00:05 +0000 Subject: pedigree-perl (29aug22) git-svn-id: svn://tug.org/texlive/trunk@64227 c570f23f-e606-0410-a88d-b1316a301751 --- .../linked_scripts/pedigree-perl/pedigree.pl | 22 +++++++++++---------- Master/texmf-dist/doc/man/man1/pedigree.1 | 6 +++--- Master/texmf-dist/doc/man/man1/pedigree.man1.pdf | Bin 21645 -> 20197 bytes Master/texmf-dist/doc/support/pedigree-perl/NEWS | 4 ++++ Master/texmf-dist/doc/support/pedigree-perl/README | 4 ++-- .../texmf-dist/scripts/pedigree-perl/pedigree.pl | 22 +++++++++++---------- .../texmf-dist/source/latex/pedigree-perl/Makefile | 4 ++-- 7 files changed, 35 insertions(+), 27 deletions(-) diff --git a/Build/source/texk/texlive/linked_scripts/pedigree-perl/pedigree.pl b/Build/source/texk/texlive/linked_scripts/pedigree-perl/pedigree.pl index d5cc70a4e99..fafa24c622e 100755 --- a/Build/source/texk/texlive/linked_scripts/pedigree-perl/pedigree.pl +++ b/Build/source/texk/texlive/linked_scripts/pedigree-perl/pedigree.pl @@ -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 @@ Pedigree::MarriageNode(3), Pedigree::Area(3). =head1 AUTHOR -Boris Veytsman, Leila Akhmadeeva, 2006-2021 +Boris Veytsman, Leila Akhmadeeva, 2006-2022 =cut @@ -111,12 +111,14 @@ use vars qw($opt_c $opt_d $opt_o $opt_s $opt_v); 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 @@ use Pedigree; my $USAGE="Usage: $0 [-c configuration_file] [-d] [-o output_file] [-s start_id] input_file\n"; my $COPYRIGHT=<, Leila Akhmadeeva +Copyright 2006-2022, Boris Veytsman , 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 diff --git a/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl b/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl index d5cc70a4e99..fafa24c622e 100755 --- a/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl +++ b/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl @@ -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 @@ Pedigree::MarriageNode(3), Pedigree::Area(3). =head1 AUTHOR -Boris Veytsman, Leila Akhmadeeva, 2006-2021 +Boris Veytsman, Leila Akhmadeeva, 2006-2022 =cut @@ -111,12 +111,14 @@ use vars qw($opt_c $opt_d $opt_o $opt_s $opt_v); 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 @@ use Pedigree; my $USAGE="Usage: $0 [-c configuration_file] [-d] [-o output_file] [-s start_id] input_file\n"; my $COPYRIGHT=<