From 8b2c7dfa75b8296bcb312b594a4c597d7b6c3e7f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 3 Jan 2012 00:44:49 +0000 Subject: new (renamed) script latexfileversion 0.3 (2jan12) git-svn-id: svn://tug.org/texlive/trunk@25012 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/check-wrapper-consistency | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'Master/tlpkg/bin/check-wrapper-consistency') diff --git a/Master/tlpkg/bin/check-wrapper-consistency b/Master/tlpkg/bin/check-wrapper-consistency index 1fde768d7f0..f31b853de3b 100755 --- a/Master/tlpkg/bin/check-wrapper-consistency +++ b/Master/tlpkg/bin/check-wrapper-consistency @@ -1,6 +1,6 @@ #!/usr/bin/env perl # $Id$ -# Copyright 2008, 2009, 2010 TeX Users Group. +# Copyright 2008, 2009, 2010, 2011 TeX Users Group. # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -25,8 +25,7 @@ pod2usage(-exitstatus => 0, -verbose => 2) if $help; exit (&main ()); -sub main -{ +sub main { my $err = 0; chomp (my $Master = `cd $mydir/../.. && pwd`); @@ -54,8 +53,7 @@ sub main # return all symlinks starting with ".." in DIR as a hash, with symlink # targets as the values. Check that targets are executable. # -sub unx_wrapper_entries -{ +sub unx_wrapper_entries { my ($DIR) = @_; my %ret; @@ -89,8 +87,7 @@ sub unx_wrapper_entries # W32DIR as a .exe, and is a copy of the canonical w32 wrapper exe # specified in W32CANONICAL. # -sub check_w32 -{ +sub check_w32 { my ($w32dir, $w32canonical, %uw) = @_; my $diff = 0; @@ -99,7 +96,8 @@ sub check_w32 next if $target =~ /bibexport/; # shell script next if $target =~ /context/; # does it its own way next if $target =~ /dviout/; # gui stub - next if $target =~ /installfont-tl/;# shell script + next if $target =~ /installfont-tl/; # shell script + next if $target =~ /latexfileversion/; # shell script next if $target =~ /listings-ext/; # shell script next if $target =~ /man/; # no symlink next if $target =~ /pdfjam/; # shell scripts -- cgit v1.2.3