| 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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to pkg-config CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / src / usr.bin / pkg-config