summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorunknown <unknown>2003-07-28 18:45:48 +0000
committerunknown <unknown>2003-07-28 18:45:48 +0000
commit1d8f51a959b83bb4cf6604439198db04b8197687 (patch)
treed9e93d5746ec8ddd08f7d635db6d2bdf64431e9c
parent63e45075003b1d9fcff097b5644a81131c346653 (diff)
downloaddebhelper-1d8f51a959b83bb4cf6604439198db04b8197687.tar.gz
r934: This commit was manufactured by cvs2svn to create tag
'upstream_version_0_53'.
-rw-r--r--.foo0
-rw-r--r--BUGS0
-rwxr-xr-xdh_getopt.pl57
3 files changed, 0 insertions, 57 deletions
diff --git a/.foo b/.foo
deleted file mode 100644
index e69de29b..00000000
--- a/.foo
+++ /dev/null
diff --git a/BUGS b/BUGS
deleted file mode 100644
index e69de29b..00000000
--- a/BUGS
+++ /dev/null
diff --git a/dh_getopt.pl b/dh_getopt.pl
deleted file mode 100755
index 4d1d3903..00000000
--- a/dh_getopt.pl
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl
-#
-# Because the getopt() program is so horribly broken, I wrote my own argument
-# processer that uses the find Getopt::Long module. This is used by all
-# debhelper shell scripts.
-#
-# Joey Hess, GPL copyright 1998.
-
-BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
-use strict;
-use Dh_Getopt;
-
-# This is a tricky (and nasty) bit: override the error() function, which
-# comes from Dh_Lib, with one of our own so we print out the list of errors
-# to the shell, which can do what it wants with them.
-sub Dh_Getopt::error { my $message=shift;
- print "DH_PARSE_ERROR='$message'\n";
- exit 1;
-}
-
-# Parse options.
-my %options=Dh_Getopt::parseopts();
-
-# Change a few lists in %options into strings,
-# generate some options that only need to be visible to the
-# shell scripts so Dh_Getopt doesn't bother generating.
-$options{DOPACKAGES}=join " ",@{$options{DOPACKAGES}};
-if ($#{$options{EXCLUDE}} > -1) {
- $options{EXCLUDE_GREP}=join '|', @{$options{EXCLUDE}};
-}
-$options{EXCLUDE}=join " ",@{$options{EXCLUDE}};
-
-# Check to see if DH_VERBOSE environment variable was set, if so,
-# make sure verbose is on.
-if (defined $main::ENV{DH_VERBOSE}) {
- if ($main::ENV{DH_VERBOSE} ne undef) {
- $options{VERBOSE}=1;
- }
-}
-
-# Check to see if DH_NO_ACT environment variable was set, if so,
-# make sure no act mode is on.
-if (defined $main::ENV{DH_NO_ACT}) {
- if ($main::ENV{DH_NO_ACT} ne undef) {
- $options{NO_ACT}=1;
- }
-}
-
-# Now output everything, in a format suitable for a shell to eval it.
-foreach (keys(%options)) {
- if (defined $options{$_}) {
- print "DH_$_='$options{$_}'\n";
- }
-}
-
-# This sets $@ in the shell to whatever arguements remain.
-print "set -- @ARGV\n"