From c8d66e28159df3f5f2b35e6f367ecc98956e7105 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 3 Mar 2008 01:51:47 +0000
Subject: rename for semi-consistency

git-svn-id: svn://tug.org/texlive/trunk@6815 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/bin/create-package-list | 85 ------------------------------------
 Master/tlpkg/bin/tlpdb2pkgver        | 85 ++++++++++++++++++++++++++++++++++++
 2 files changed, 85 insertions(+), 85 deletions(-)
 delete mode 100755 Master/tlpkg/bin/create-package-list
 create mode 100755 Master/tlpkg/bin/tlpdb2pkgver

(limited to 'Master')

diff --git a/Master/tlpkg/bin/create-package-list b/Master/tlpkg/bin/create-package-list
deleted file mode 100755
index 85c3716c2a2..00000000000
--- a/Master/tlpkg/bin/create-package-list
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/bin/env perl
-# $Id$
-# create-package-list
-# Create the package list of the current installation
-# Copyright 2007 Norbert Preining
-#
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-
-BEGIN {
-  $^W = 1;
-  ($mydir = $0) =~ s,/[^/]*$,,;
-  unshift (@INC, "$mydir/..");
-}
-
-use strict;
-
-use TeXLive::TLPDB;
-use TeXLive::TLUtils qw(dirname tllog);
-use Getopt::Long;
-use Pod::Usage;
-
-my $opt_debug = 0;
-my $help = 0;
-
-GetOptions("debug!", 'help|?' => \$help ) or pod2usage(1);
-
-pod2usage(-exitstatus => 0, -verbose => 2) if $help;
-
-if ($opt_debug) {
-  $::LOGLEVELFILE = $::LOG_DDDEBUG;
-	$::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
-}
-
-die "$0: missing tlpdb argument; try --help if you need it.\n" if ($#ARGV<0);
-
-die "cannot read tlpdb file $ARGV[0]." if (! -r "$ARGV[0]");
-
-# backwards compatibility
-my $root;
-if ("$ARGV[0]" =~ m,texlive.tlpdb$,) {
-	$root = dirname(dirname("$ARGV[0]"));
-} else {
-  $root = "$ARGV[0]";
-}
-
-my $tldb = new TeXLive::TLPDB ( root => "$root" );
-
-$tldb->generate_packagelist;
-
-__END__
-
-=head1 NAME
-
-create-package-list - generate a list of TeX Live packages with revisions
-
-=head1 SYNOPSIS
-
-create-package-list [OPTION]... /path/to/root/of/installation/
-
-=head1 OPTIONS
-
-The standard options C<-help> and C<-debug> are accepted.
-See the tlpfiles documentation for details.
-
-=head1 DESCRIPTION
-
-B<create-package-list> generates the list of packages with revisions
-from the TeX Live Installation present at the location specified
-at the command line.
-
-=head1 AUTHORS AND COPYRIGHT
-
-This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
-GNU General Public License Version 2 or later.
-
-=cut
-
-### Local Variables:
-### perl-indent-level: 2
-### tab-width: 2
-### indent-tabs-mode: nil
-### End:
-# vim:set tabstop=2: #
diff --git a/Master/tlpkg/bin/tlpdb2pkgver b/Master/tlpkg/bin/tlpdb2pkgver
new file mode 100755
index 00000000000..85c3716c2a2
--- /dev/null
+++ b/Master/tlpkg/bin/tlpdb2pkgver
@@ -0,0 +1,85 @@
+#!/usr/bin/env perl
+# $Id$
+# create-package-list
+# Create the package list of the current installation
+# Copyright 2007 Norbert Preining
+#
+# This file is licensed under the GNU General Public License version 2
+# or any later version.
+
+BEGIN {
+  $^W = 1;
+  ($mydir = $0) =~ s,/[^/]*$,,;
+  unshift (@INC, "$mydir/..");
+}
+
+use strict;
+
+use TeXLive::TLPDB;
+use TeXLive::TLUtils qw(dirname tllog);
+use Getopt::Long;
+use Pod::Usage;
+
+my $opt_debug = 0;
+my $help = 0;
+
+GetOptions("debug!", 'help|?' => \$help ) or pod2usage(1);
+
+pod2usage(-exitstatus => 0, -verbose => 2) if $help;
+
+if ($opt_debug) {
+  $::LOGLEVELFILE = $::LOG_DDDEBUG;
+	$::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
+}
+
+die "$0: missing tlpdb argument; try --help if you need it.\n" if ($#ARGV<0);
+
+die "cannot read tlpdb file $ARGV[0]." if (! -r "$ARGV[0]");
+
+# backwards compatibility
+my $root;
+if ("$ARGV[0]" =~ m,texlive.tlpdb$,) {
+	$root = dirname(dirname("$ARGV[0]"));
+} else {
+  $root = "$ARGV[0]";
+}
+
+my $tldb = new TeXLive::TLPDB ( root => "$root" );
+
+$tldb->generate_packagelist;
+
+__END__
+
+=head1 NAME
+
+create-package-list - generate a list of TeX Live packages with revisions
+
+=head1 SYNOPSIS
+
+create-package-list [OPTION]... /path/to/root/of/installation/
+
+=head1 OPTIONS
+
+The standard options C<-help> and C<-debug> are accepted.
+See the tlpfiles documentation for details.
+
+=head1 DESCRIPTION
+
+B<create-package-list> generates the list of packages with revisions
+from the TeX Live Installation present at the location specified
+at the command line.
+
+=head1 AUTHORS AND COPYRIGHT
+
+This script and its documentation were written for the TeX Live
+distribution (L<http://tug.org/texlive>) and both are licensed under the
+GNU General Public License Version 2 or later.
+
+=cut
+
+### Local Variables:
+### perl-indent-level: 2
+### tab-width: 2
+### indent-tabs-mode: nil
+### End:
+# vim:set tabstop=2: #
-- 
cgit v1.2.3