burak / CPAN-Sys-Info-Base

Base class for Sys::Info (Perl)

Changed (Δ3 bytes):

raw changeset »

lib/Sys/Info/Base.pm (1 lines added, 1 lines removed)

Up to file-list lib/Sys/Info/Base.pm:

…… @@ -40,7 +40,7 @@ sub load_module { 
40
 
40
 
    (my $check = $class) =~ tr/a-zA-Z0-9_://d;
 
41
 
41
 
    croak "Invalid class name: $class" if $check;
 
42
 
42
 
    my @raw_file = split /::/xms, $class;
 
43
 
	my $inc_file = join( q{/}, @raw_file) . '.pm';
 
43
 
    my $inc_file = join( q{/}, @raw_file) . '.pm';
 
44
 
44
 
    return $class if exists $INC{ $inc_file };
 
45
 
45
 
    my $file = File::Spec->catfile( @raw_file ) . '.pm';
 
46
 
46
 
    my $eok = eval { require $file; };