byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

install_deps: handle comments in Makefile.PL

Browse Source
This commit is contained in:
Matt Simerson 2013-04-25 11:24:08 -07:00
parent b8229fbdbf
commit 2b1b75145a
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
bin/install_deps.pl
View File

@ -27,13 +27,8 @@ use CPAN;
use English qw( -no_match_vars ); use English qw( -no_match_vars );
my $apps = [ my $apps = [
{ app => 'expat' , info => { port => 'expat2', dport=>'expat2' } }, # { app => 'mysql-server-5', info => { port => 'mysql50-server', dport=>'mysql5', yum =>'mysql-server'} },
{ app => 'gettext' , info => { port => 'gettext', dport=>'gettext'} }, # { app => 'apache22' , info => { port => 'apache22', dport=>'', yum => 'httpd' } },
{ app => 'gmake' , info => { port => 'gmake', dport=>'gmake' } },
{ app => 'mysql-server-5', info => { port => 'mysql50-server', dport=>'mysql5', yum =>'mysql-server'} },
{ app => 'apache22' , info => { port => 'apache22', dport=>'', yum => 'httpd' } },
{ app => 'mod_perl2' , info => { port => 'mod_perl2', dport=>'', yum => 'mod_perl' } },
{ app => 'rsync' , info => { }, },
]; ];
$EUID == 0 or die "You will have better luck if you run me as root.\n"; $EUID == 0 or die "You will have better luck if you run me as root.\n";
@ -95,8 +90,9 @@ sub get_perl_modules_from_Makefile_PL {
}; };
next if ! $in; next if ! $in;
last if $line =~ /}/; last if $line =~ /}/;
next if $line !~ /=/; # no = char means not a module
my ($mod,$ver) = split /\s*=\s*/, $line; my ($mod,$ver) = split /\s*=\s*/, $line;
$mod =~ s/[\s'"]*//g; # remove whitespace and quotes $mod =~ s/[\s'"\#]*//g; # remove whitespace and quotes
next if ! $mod; next if ! $mod;
push @modules, name_overrides($mod); push @modules, name_overrides($mod);
#print "module: .$mod.\n"; #print "module: .$mod.\n";