diff options
author | unknown <unknown> | 2003-07-28 18:45:48 +0000 |
---|---|---|
committer | unknown <unknown> | 2003-07-28 18:45:48 +0000 |
commit | 1d8f51a959b83bb4cf6604439198db04b8197687 (patch) | |
tree | d9e93d5746ec8ddd08f7d635db6d2bdf64431e9c | |
parent | 63e45075003b1d9fcff097b5644a81131c346653 (diff) | |
download | debhelper-1d8f51a959b83bb4cf6604439198db04b8197687.tar.gz |
r934: This commit was manufactured by cvs2svn to create tag
'upstream_version_0_53'.
-rw-r--r-- | .foo | 0 | ||||
-rw-r--r-- | BUGS | 0 | ||||
-rwxr-xr-x | dh_getopt.pl | 57 |
3 files changed, 0 insertions, 57 deletions
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" |