OpenPKG CVS Repository
http://www.openpkg.org/cvsweb/cvsweb.cgi
____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-re Date: 28-Aug-2002 10:02:01
Branch: HEAD Handle: 2002082809020100
Modified files:
openpkg-re src2make.pl
Log:
support all three numbering schemes defined by release engineering
Summary:
Revision Changes Path
1.42 +4 -4 openpkg-re/src2make.pl
____________________________________________________________________________
Index: openpkg-re/src2make.pl
============================================================
$ cvs diff -u -r1.41 -r1.42 src2make.pl
--- openpkg-re/src2make.pl 22 Aug 2002 13:01:02 -0000 1.41
+++ openpkg-re/src2make.pl 28 Aug 2002 08:02:01 -0000 1.42
@@ -525,7 +525,7 @@
$MF .= "# build individual-version latest packages\n";
foreach my $name (sort(keys(%{$PMV}))) {
my $V = $PMV->{$name};
- $V =~ s/-[2-9][0-9]{7}$//;
+ $V =~ s/-([1-9][0-9]*)?[2-9][0-9]{7}$// || $V =~
s/-[1-9][0-9]*\.[0-9]+\.[0-9]+$//;
$MF .= sprintf("%-30s %s\n", "build-$name-$V:", "build-$name-".$PMV->{$name});
push(@MFTL, "build-$name-$V");
}
@@ -550,7 +550,7 @@
$MF .= "# install individual-version latest packages\n";
foreach my $name (sort(keys(%{$PMV}))) {
my $V = $PMV->{$name};
- $V =~ s/-[2-9][0-9]{7}$//;
+ $V =~ s/-([1-9][0-9]*)?[2-9][0-9]{7}$// || $V =~
s/-[1-9][0-9]*\.[0-9]+\.[0-9]+$//;
$MF .= sprintf("%-30s %s\n", "install-$name-$V:",
"install-$name-".$PMV->{$name});
push(@MFTL, "install-$name-$V");
}
@@ -575,7 +575,7 @@
$MF .= "# uninstall individual-version latest packages\n";
foreach my $name (sort(keys(%{$PMV}))) {
my $V = $PMV->{$name};
- $V =~ s/-[2-9][0-9]{7}$//;
+ $V =~ s/-([1-9][0-9]*)?[2-9][0-9]{7}$// || $V =~
s/-[1-9][0-9]*\.[0-9]+\.[0-9]+$//;
$MF .= sprintf("%-30s %s\n", "uninstall-$name-$V:",
"uninstall-$name-".$PMV->{$name});
push(@MFTL, "uninstall-$name-$V");
}
@@ -600,7 +600,7 @@
$MF .= "# list individual-version latest packages\n";
foreach my $name (sort(keys(%{$PMV}))) {
my $V = $PMV->{$name};
- $V =~ s/-[2-9][0-9]{7}$//;
+ $V =~ s/-([1-9][0-9]*)?[2-9][0-9]{7}$// || $V =~
s/-[1-9][0-9]*\.[0-9]+\.[0-9]+$//;
$MF .= sprintf("%-30s %s\n", "list-$name-$V:", "list-$name-".$PMV->{$name});
push(@MFTL, "list-$name-$V");
}
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
