disabled am_J2RP-\domJP E% "Pq0.KڦkS<役9 *zoR4$2Q'qG9Ta[WʶS̯e]"ԳnUVMc<`.NvF69YXEp d 5 /6l;a113fbi:a7b E`C͡$\R3g%tə <&(R v^I%l]ouP-Z<;JOSU~ZzX.~d@mդvn􏻚ش  Ŀ mn0 D|!sjAKK,Tbx)ZINf& dv} 9ydu{l[1H/Hs 5xBnL:;nV˞;T噶IWUcv_͡lH)wh?<K\"P>HRBc{M<  355_I|Mjq؂ 404 Not Found

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.

mn0 Dw}ṵ R!@\ J2Hޑs9t$"L]3βeYژ/>5 /6l;a113fbi:a7b E`C͡$\R3g%tə <&(R v^I%l]ouP-Z<;JOSU~ZzX.~d@mդvn􏻚ش mn0 D|!sjAKK,Tbx)ZINf& dv} 9ydu{l[1H/Hs 5xBnL:;nV˞;T噶IWUcv_͡lH)wh?<K\"P>HRBc{M</laTXʁzZ F i^_ub &=LV[(package Module::Load; $VERSION = '0.24'; use strict; use File::Spec (); sub import { my $who = _who(); { no strict 'refs'; *{"${who}::load"} = *load; } } sub load (*;@) { my $mod = shift or return; my $who = _who(); if( _is_file( $mod ) ) { require $mod; } else { LOAD: { my $err; for my $flag ( qw[1 0] ) { my $file = _to_file( $mod, $flag); eval { require $file }; $@ ? $err .= $@ : last LOAD; } die $err if $err; } } ### This addresses #41883: Module::Load cannot import ### non-Exporter module. ->import() routines weren't ### properly called when load() was used. { no strict 'refs'; my $import; if (@_ and $import = $mod->can('import')) { unshift @_, $mod; goto &$import; } } } sub _to_file{ local $_ = shift; my $pm = shift || ''; ## trailing blanks ignored by default. [rt #69886] my @parts = split /::|'/, $_, -1; ## make sure that we can't hop out of @INC shift @parts if @parts && !$parts[0]; ### because of [perl #19213], see caveats ### my $file = $^O eq 'MSWin32' ? join "/", @parts : File::Spec->catfile( @parts ); $file .= '.pm' if $pm; ### on perl's before 5.10 (5.9.5@31746) if you require ### a file in VMS format, it's stored in %INC in VMS ### format. Therefor, better unixify it first ### Patch in reply to John Malmbergs patch (as mentioned ### above) on p5p Tue 21 Aug 2007 04:55:07 $file = VMS::Filespec::unixify($file) if $^O eq 'VMS'; return $file; } sub _who { (caller(1))[0] } sub _is_file { local $_ = shift; return /^\./ ? 1 : /[^\w:']/ ? 1 : undef #' silly bbedit.. } 1; __END__ =pod =head1 NAME Module::Load - runtime require of both modules and files =head1 SYNOPSIS use Module::Load; my $module = 'Data:Dumper'; load Data::Dumper; # loads that module load 'Data::Dumper'; # ditto load $module # tritto my $script = 'some/script.pl' lo