Matt McCutchen's Web Site
/
rsync
/
rsync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2e4a3d1
)
Determine the previous version number in a more reasonable fashion.
author
Wayne Davison
<wayned@samba.org>
Wed, 26 Sep 2007 17:43:57 +0000
(17:43 +0000)
committer
Wayne Davison
<wayned@samba.org>
Wed, 26 Sep 2007 17:43:57 +0000
(17:43 +0000)
packaging/release-rsync
patch
|
blob
|
blame
|
history
diff --git
a/packaging/release-rsync
b/packaging/release-rsync
index
9538fea
..
dc89245
100755
(executable)
--- a/
packaging/release-rsync
+++ b/
packaging/release-rsync
@@
-67,7
+67,7
@@
while (<CVS>) {
chdir('rsync') or die $!;
my($version, $lastversion);
chdir('rsync') or die $!;
my($version, $lastversion);
-open(IN, 'configure.in') or die $!;
+open(IN, '
<', '
configure.in') or die $!;
while (<IN>) {
if (/^RSYNC_VERSION=(.*)/) {
$version = $lastversion = $1;
while (<IN>) {
if (/^RSYNC_VERSION=(.*)/) {
$version = $lastversion = $1;
@@
-76,15
+76,11
@@
while (<IN>) {
}
close IN;
}
close IN;
-if (my($major, $minor, $rel) = $lastversion =~ /(\d+)\.(\d+)\.(\d+)cvs$/) {
- if (--$rel < 0) {
- $rel = 9;
- if (--$minor < 0) {
- $minor = 6;
- $major--;
- }
- }
- $lastversion = "$major.$minor.$rel";
+if ($lastversion =~ /cvs$/) {
+ open(IN, '<', 'OLDNEWS') or die $!;
+ $_ = <IN>;
+ close IN;
+ ($lastversion) = /(\d+\.\d+\.\d+)/;
}
$version =~ s/cvs/pre1/ || $version =~ s/pre(\d+)/ 'pre' . ($1 + 1) /e;
}
$version =~ s/cvs/pre1/ || $version =~ s/pre(\d+)/ 'pre' . ($1 + 1) /e;