"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "macosx/scripts/create-darwin-perl-lib_fromCPAN.pl" between
Ocsinventory-Unix-Agent-2.8.0.tar.gz and Ocsinventory-Unix-Agent-2.8.1.tar.gz

About: Ocsinventory-Agent is a Linux agent for OCS Inventory NG.

create-darwin-perl-lib_fromCPAN.pl  (Ocsinventory-Unix-Agent-2.8.0):create-darwin-perl-lib_fromCPAN.pl  (Ocsinventory-Unix-Agent-2.8.1)
skipping to change at line 91 skipping to change at line 91
my %default = ( my %default = (
'CORE' => 1, 'CORE' => 1,
); );
$args{$_} = $default{$_} foreach grep !exists $args{$_}, keys %default; $args{$_} = $default{$_} foreach grep !exists $args{$_}, keys %default;
# #
# Place any core modules (+ versions) that are required in the form: MOD::MOD 0. 01 # Place any core modules (+ versions) that are required in the form: MOD::MOD 0. 01
# #
$deps{'CORE'} = [ text_to_hash( << ".") ]; $deps{'CORE'} = [ text_to_hash( << ".") ];
Test::Needs
XML::SAX XML::SAX
XML::Parser XML::Parser
XML::Simple XML::Simple
URI URI
Proc::Daemon
Proc::PID::File
Data::UUID
Switch
XML::NamespaceSupport XML::NamespaceSupport
File::Listing File::Listing
Net::IP Net::IP
Compress::Zlib Compress::Zlib
Compress::Raw::Zlib Compress::Raw::Zlib
IO::Zlib IO::Zlib
Mac::SysProfile Mac::SysProfile
Mac::PropertyList Mac::PropertyList
Parse::EDID Parse::EDID
XSLoader
LWP LWP
LWP::UserAgent LWP::UserAgent
LWP::Protocol::https LWP::Protocol::https
XML::Entities XML::Entities
Mac::SysProfile Mac::SysProfile
ExtUtils::ParseXS
Scalar::Util
Proc::ProcessTable
. .
# push all the dep's into a @missing array # push all the dep's into a @missing array
my @missing; my @missing;
my @deps = @{ $deps{'CORE'} }; my @deps = @{ $deps{'CORE'} };
while (@deps) { while (@deps) {
my $module = shift @deps; my $module = shift @deps;
my $version = shift @deps; my $version = shift @deps;
push @missing, $module, $version; push @missing, $module, $version;
} }
skipping to change at line 153 skipping to change at line 162
my $module = shift; my $module = shift;
my $version = shift; my $version = shift;
local @INC = @INC; local @INC = @INC;
my $user = `whoami`; chomp $user; my $user = `whoami`; chomp $user;
unshift @INC, "/Users/$user/Library/Application Support/.cpan"; unshift @INC, "/Users/$user/Library/Application Support/.cpan";
if ( $ENV{'HOME'} ) { if ( $ENV{'HOME'} ) {
unshift @INC, "$ENV{'HOME'}/.cpan"; unshift @INC, "$ENV{'HOME'}/.cpan";
} }
unshift @INC, "/Users/$user/~darwin-perl-lib"; unshift @INC, "/Users/$user/perl5";
print "\nInstall module $module\n"; print "\nInstall module $module\n";
my $cfg = (eval { require CPAN::MyConfig }); my $cfg = (eval { require CPAN::MyConfig });
unless($cfg){ die('CPAN Not configured properly'); } unless($cfg){ die('CPAN Not configured properly'); }
CPAN::Shell->force('install',$module); CPAN::Shell->force('install',$module);
} }
# the help.... # the help....
sub help { sub help {
 End of changes. 5 change blocks. 
1 lines changed or deleted 10 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)