version 1.59, 2011/06/12 17:08:44 |
version 1.60, 2011/06/12 17:11:01 |
|
|
if (defined $cfg) { |
if (defined $cfg) { |
my $value = $cfg->get_property('Version', $variables); |
my $value = $cfg->get_property('Version', $variables); |
if (defined $value) { |
if (defined $value) { |
if (!defined($mode{printprovides})){ |
if (defined($mode{printprovides})){ |
print stringize($value), "\n"; |
print "$p = " . stringize($value) . "\n"; |
return undef; |
return undef; |
} else { |
} else { |
print "$p = " . stringize($value) . "\n"; |
print stringize($value), "\n"; |
return undef; |
return undef; |
} |
} |
} |
} |
|
|
# is there a valid non-numeric suffix to deal with later? |
# is there a valid non-numeric suffix to deal with later? |
# accepted are (in order): a(lpha) < b(eta) < rc < ' '. |
# accepted are (in order): a(lpha) < b(eta) < rc < ' '. |
# suffix[0] is the 'alpha' part, suffix[1] is the '1' part in 'alpha1'. |
# suffix[0] is the 'alpha' part, suffix[1] is the '1' part in 'alpha1'. |
# XXX: add back 'rc' |
|
if ($a =~ s/(rc|beta|b|alpha|a)(\d+)$//) { |
if ($a =~ s/(rc|beta|b|alpha|a)(\d+)$//) { |
print STDERR "valid suffix $1$2 found in $a$1$2.\n" if $D; |
print STDERR "valid suffix $1$2 found in $a$1$2.\n" if $D; |
$suffix_a[0] = $1; |
$suffix_a[0] = $1; |