… | |
… | |
372 | ############################################################################# |
372 | ############################################################################# |
373 | # main |
373 | # main |
374 | |
374 | |
375 | podusage() { |
375 | podusage() { |
376 | echo |
376 | echo |
|
|
377 | |
377 | if [ -e "$PERL_PREFIX/bin/perl" ]; then |
378 | if [ -e "$PERL_PREFIX/bin/perl" ]; then |
378 | "$PERL_PREFIX/bin/perl" -MPod::Usage -e \ |
379 | "$PERL_PREFIX/bin/perl" -MPod::Usage -e \ |
379 | 'pod2usage -input => *STDIN, -output => *STDOUT, -verbose => '$1', -exitval => 0, -noperldoc => 1' <"$0" \ |
380 | 'pod2usage -input => *STDIN, -output => *STDOUT, -verbose => '$1', -exitval => 0, -noperldoc => 1' <"$0" \ |
380 | 2>/dev/null && exit |
381 | 2>/dev/null && exit |
381 | fi |
382 | fi |
|
|
383 | |
382 | # try whatever perl we can find |
384 | # try whatever perl we can find |
383 | perl -MPod::Usage -e \ |
385 | perl -MPod::Usage -e \ |
384 | 'pod2usage -input => *STDIN, -output => *STDOUT, -verbose => '$1', -exitval => 0, -noperldoc => 1' <"$0" \ |
386 | 'pod2usage -input => *STDIN, -output => *STDOUT, -verbose => '$1', -exitval => 0, -noperldoc => 1' <"$0" \ |
385 | 2>/dev/null && exit |
387 | 2>/dev/null && exit |
386 | |
388 | |
387 | fatal "displaying documentation requires a working perl - try '$0 install' first" |
389 | fatal "displaying documentation requires a working perl - try '$0 install' to build one in a safe location" |
388 | } |
390 | } |
389 | |
391 | |
390 | usage() { |
392 | usage() { |
391 | podusage 0 |
393 | podusage 0 |
392 | } |
394 | } |