| changeset 26 | a815b43eec44 |
| parent 23 | 7484e32fdc72 |
| child 27 | 7debeb182289 |
| 25:14ec9c4634f3 | 26:a815b43eec44 |
|---|---|
77 ); |
77 ); |
78 }, |
78 }, |
79 ) or pod2usage(); |
79 ) or pod2usage(); |
80 |
80 |
81 our $source; |
81 our $source; |
82 use lib ('.', $ENV{HOME}, '/etc'); |
82 use lib grep { defined } ('.', $ENV{HOME}, '/etc'); |
83 require $opts{map}; |
83 require $opts{map}; |
84 |
84 |
85 $0 = "$ME @ARGV"; |
85 $0 = "$ME @ARGV"; |
86 |
86 |
87 chdir("/") or die "Can't chdir to /: $!\n"; |
87 chdir("/") or die "Can't chdir to /: $!\n"; |