| … | |
… | |
| 15 | @INC = ( |
15 | @INC = ( |
| 16 | "pm", |
16 | "pm", |
| 17 | ".", # AutoLoader requires this in newer versions. yup. yup. yup :( |
17 | ".", # AutoLoader requires this in newer versions. yup. yup. yup :( |
| 18 | sub { |
18 | sub { |
| 19 | return if exists $NO_WARN{$_[1]}; |
19 | return if exists $NO_WARN{$_[1]}; |
|
|
20 | require Carp; |
| 20 | warn "$_[1]: file not found, packaging error?\n"; |
21 | Carp::cluck ("$_[1]: file not found, packaging error?\n"); |
|
|
22 | eval { |
|
|
23 | ::crash ("MISSING PACKAGE: $_[1]", 1); |
|
|
24 | }; |
| 21 | () |
25 | () |
| 22 | }, |
26 | }, |
| 23 | ); |
27 | ); |
| 24 | |
28 | |
| 25 | ############################################################################# |
29 | ############################################################################# |
