| … | |
… | |
| 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 | } |
