Rev 13 | Show entire file | Ignore 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 | ||