version 1.5, 2006/11/27 23:57:51 |
version 1.6, 2006/11/28 01:36:17 |
|
|
'static' => sub { $mode{'static'} = 1}, |
'static' => sub { $mode{'static'} = 1}, |
'uninstalled' => sub { $mode{'uninstalled'} = 1}, |
'uninstalled' => sub { $mode{'uninstalled'} = 1}, |
'atleast-version=s' => \$mode{'atleast-version'}, |
'atleast-version=s' => \$mode{'atleast-version'}, |
'modversion=s' => \$mode{'modversion'}, |
'modversion:s' => \$mode{'modversion'}, |
'variable=s' => \$mode{'variable'} |
'variable=s' => \$mode{'variable'} |
); |
); |
|
|
print STDERR "\n[" . join('] [', $0, @ARGV) . "]\n" if $D; |
print STDERR "\n[" . join('] [', $0, @ARGV) . "]\n" if $D; |
self_version($mode{'minvers'}) if $mode{'minvers'}; #does not return |
self_version($mode{'minvers'}) if $mode{'minvers'}; #does not return |
do_modversion($mode{'modversion'}) if $mode{'modversion'}; #does not return |
if (defined $mode{'modversion'}) { |
|
if ($mode{'modversion'}) { |
|
do_modversion($mode{'modversion'}) ; #does not return |
|
} else { |
|
print $version . "\n"; |
|
exit 0; |
|
} |
|
} |
|
|
$p = join(' ', @ARGV); |
$p = join(' ', @ARGV); |
$p =~ s/\s+/ /g; |
$p =~ s/\s+/ /g; |
|
|
{ |
{ |
my ($p, undef) = @_; |
my ($p, undef) = @_; |
my ($f); |
my ($f); |
|
|
|
print "\$p ='$p'\n"; |
|
|
exit 1 unless $f = pathresolve($p); |
exit 1 unless $f = pathresolve($p); |
exit 1 unless $f = slurp($f); |
exit 1 unless $f = slurp($f); |