diff options
Diffstat (limited to 'Master/texmf-dist/scripts/pedigree-perl/pedigree.pl')
| -rwxr-xr-x | Master/texmf-dist/scripts/pedigree-perl/pedigree.pl | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl b/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl index 209c3131bed..d5cc70a4e99 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-2012 Boris Veytsman & Leila Akhmadeeva +# Copyright (C) 2006-2021 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-2012 +Boris Veytsman, Leila Akhmadeeva, 2006-2021 =cut @@ -105,18 +105,18 @@ Boris Veytsman, Leila Akhmadeeva, 2006-2012 use strict; use vars qw($opt_c $opt_d $opt_o $opt_s $opt_v); -our $TLCONF; # TL config file -our $TLCONFLOCAL; # TL local config file - -BEGIN { - # find files relative to our installed location within TeX Live - chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root - 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"; - } +############################## +# TeXLive compatibility stuff +############################## +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"; } use Getopt::Std; @@ -129,9 +129,9 @@ use Pedigree; my $USAGE="Usage: $0 [-c configuration_file] [-d] [-o output_file] [-s start_id] input_file\n"; my $COPYRIGHT=<<END; -$0 Version 1.0, April 2012 +$0 Version 0.5, October 2021 -Copyright (C) 2006-2012 Boris Veytsman & Leila Akhmadeeva +Copyright (C) 2006-2021 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 |