[Module-build-checkins] Module-Build/lib/Module/Build Compat.pm,1.58,1.59
Status: Beta
Brought to you by:
kwilliams
From: Ken W. <kwi...@us...> - 2004-12-28 05:16:43
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25836/lib/Module/Build Modified Files: Compat.pm Log Message: Use --foo bar, not foo=bar Index: Compat.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v retrieving revision 1.58 retrieving revision 1.59 diff -C2 -d -r1.58 -r1.59 *** Compat.pm 28 Dec 2004 05:13:50 -0000 1.58 --- Compat.pm 28 Dec 2004 05:16:35 -0000 1.59 *************** *** 141,150 **** if (exists $makefile_to_build{$key}) { my $trans = $makefile_to_build{$key}; ! push @out, ref($trans) ? $trans->($val) : "$trans=$val"; } elsif (exists $Config{lc($key)}) { ! push @out, 'config=' . lc($key) . "=$val"; } else { # Assume M::B can handle it in lowercase form ! push @out, "\L$key\E=$val"; } } --- 141,150 ---- if (exists $makefile_to_build{$key}) { my $trans = $makefile_to_build{$key}; ! push @out, ref($trans) ? $trans->($val) : ("--$trans", $val); } elsif (exists $Config{lc($key)}) { ! push @out, '--config', lc($key) . "=$val"; } else { # Assume M::B can handle it in lowercase form ! push @out, "--\L$key", $val; } } |