Change Details
| rc/bash_functions |
|---|
| 548 | 548 | |
| 549 | 549 | e=() |
| 550 | 550 | for m; do |
| 551 | | if [[ "$m" =~ '^([[:alnum:]_)+(::[[:alnum:]_]+)*$' ]]; then |
| 551 | if [[ "$m" =~ '^([[:alnum:]_)+(::[[:alnum:]_]+)*( .*)?$' ]]; then |
| 552 | 552 | if perl "-M$m" -e 1 &> /dev/null; then |
| 553 | 553 | aval[ ${#aval[@]} ]="$m" |
| 554 | 554 | else |
| 555 | 555 | echo "skipping $m, unable to load it" >&2 |
| 556 | 556 | fi |
| 557 | | elif [ -e "$m" ]; then |
| 558 | | e[ ${#e[@]} ]="require '$m';" |
| 557 | elif [ -z "${m##*.pm}" ]; then |
| 558 | if [ -e "$m" ]; then |
| 559 | e[ ${#e[@]} ]="require '$m';" |
| 560 | else |
| 561 | echo "skipping $m, unable to find it" >&2 |
| 562 | fi |
| 559 | 563 | else |
| 560 | 564 | e[ ${#e[@]} ]="$m;" |
| 561 | 565 | fi |
Download the corresponding diff file