Rev 13 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 13 | Rev 15 | ||
---|---|---|---|
Line 47... | Line 47... | ||
47 | 47 | ||
48 | use Getopt::Long qw(:config pass_through); |
48 | use Getopt::Long qw(:config pass_through); |
49 | use DebPool::Config qw(:functions :vars); |
49 | use DebPool::Config qw(:functions :vars); |
50 | 50 | ||
51 | my($help); |
51 | my($help); |
52 | GetOptions('help!' => \$help); |
52 | GetOptions('help' => \$help); |
53 | if (defined($help)) { |
53 | if (defined($help)) { |
54 | #23456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 | |
54 | #23456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 | |
55 | print "Usage: debpool [Options] |
55 | print "Usage: debpool [Options] |
56 | Pool-based Debian package archive manager |
56 | Pool-based Debian package archive manager |
57 | 57 |