Change Details
| rc/bash_functions |
|---|
| 529 | 529 | Data::Dumper |
| 530 | 530 | MIME::Base64) |
| 531 | 531 | |
| 532 | | echo "imported modules: ${mod[*]}" |
| 533 | | perl -Ilib -I. "${mod[@]/#/-M}" -de "${*:-1}" |
| 532 | aval=() |
| 533 | for m in "${mod[@]}"; do |
| 534 | if perl "-M$m" -e 1 &> /dev/null; then |
| 535 | aval[ ${#aval[@]} ]="$m" |
| 536 | fi |
| 537 | done |
| 538 | |
| 539 | e=() |
| 540 | for m; do |
| 541 | if [ -z "${m##*::*}" ]; then |
| 542 | if perl "-M$m" -e 1 &> /dev/null; then |
| 543 | aval[ ${#aval[@]} ]="$m" |
| 544 | else |
| 545 | echo "skipping $m, unable to load it" >&2 |
| 546 | fi |
| 547 | elif [ -e "$m" ]; then |
| 548 | e[ ${#e[@]} ]="require '$m';" |
| 549 | else |
| 550 | e[ ${#e[@]} ]="$m;" |
| 551 | fi |
| 552 | done |
| 553 | |
| 554 | echo "will import modules: ${aval[*]}" >&2 |
| 555 | echo "will execute: ${e[*]} 1" >&2 |
| 556 | perl -Ilib -I. -d "${aval[@]/#/-M}" "${e[@]/#/-e}" -e1 |
| 534 | 557 | ) |
| 535 | 558 | } |
| 536 | 559 | |
Download the corresponding diff file