diff options
Diffstat (limited to 'beagle/debian-rfs/usr/lib/perl/5.10.1/Config.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/lib/perl/5.10.1/Config.pm | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Config.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/Config.pm deleted file mode 100644 index 4082988..0000000 --- a/beagle/debian-rfs/usr/lib/perl/5.10.1/Config.pm +++ /dev/null @@ -1,98 +0,0 @@ -# This file was created by configpm when Perl was built. Any changes -# made to this file will be lost the next time perl is built. - -# for a description of the variables, please have a look at the -# Glossary file, as written in the Porting folder, or use the url: -# http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary - -package Config; -use strict; -# use warnings; Pulls in Carp -# use vars pulls in Carp -@Config::EXPORT = qw(%Config); -@Config::EXPORT_OK = qw(myconfig config_sh config_vars config_re); - -# Need to stub all the functions to make code such as print Config::config_sh -# keep working - -sub myconfig; -sub config_sh; -sub config_vars; -sub config_re; - -my %Export_Cache = map {($_ => 1)} (@Config::EXPORT, @Config::EXPORT_OK); - -our %Config; - -# Define our own import method to avoid pulling in the full Exporter: -sub import { - my $pkg = shift; - @_ = @Config::EXPORT unless @_; - - my @funcs = grep $_ ne '%Config', @_; - my $export_Config = @funcs < @_ ? 1 : 0; - - no strict 'refs'; - my $callpkg = caller(0); - foreach my $func (@funcs) { - die sprintf qq{"%s" is not exported by the %s module\n}, - $func, __PACKAGE__ unless $Export_Cache{$func}; - *{$callpkg.'::'.$func} = \&{$func}; - } - - *{"$callpkg\::Config"} = \%Config if $export_Config; - return; -} - -die "Perl lib version (5.10.1) doesn't match executable version ($])" - unless $^V; - -$^V eq 5.10.1 - or die "Perl lib version (5.10.1) doesn't match executable version (" . - sprintf("v%vd",$^V) . ")"; - -sub FETCH { - my($self, $key) = @_; - - # check for cached value (which may be undef so we use exists not defined) - return $self->{$key} if exists $self->{$key}; - - return $self->fetch_string($key); -} -sub TIEHASH { - bless $_[1], $_[0]; -} - -sub DESTROY { } - -sub AUTOLOAD { - require 'Config_heavy.pl'; - goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; - die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; -} - -# tie returns the object, so the value returned to require will be true. -tie %Config, 'Config', { - archlibexp => '/usr/lib/perl/5.10', - archname => 'arm-linux-gnueabi-thread-multi', - cc => 'cc', - d_readlink => 'define', - d_symlink => 'define', - dlsrc => 'dl_dlopen.xs', - dont_use_nlink => undef, - exe_ext => '', - inc_version_list => '5.10.0', - intsize => '4', - ldlibpthname => 'LD_LIBRARY_PATH', - libpth => '/usr/local/lib /lib /usr/lib', - osname => 'linux', - osvers => '2.6.32', - path_sep => ':', - privlibexp => '/usr/share/perl/5.10', - scriptdir => '/usr/bin', - sitearchexp => '/usr/local/lib/perl/5.10.1', - sitelibexp => '/usr/local/share/perl/5.10.1', - useithreads => 'define', - usevendorprefix => 'define', - version => '5.10.1', -}; |
