Package: cvs-autoreleasedeb
Version: 0.8-1
Severity: important
Tags: patch
cvs-autoreleasedeb incorreclty forms the .changes file name for packages
with versions like 1:1.12.9-13
-- System Information:
Debian Release: 3.1
APT prefers testing
APT policy: (500, 'testing')
Architecture: i386 (i686)
Kernel: Linux 2.6.11-p4
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Versions of packages cvs-autoreleasedeb depends on:
ii cvs 1:1.12.9-13 Concurrent Versions System
ii cvs-buildpackage 5.19 A set of Debian package scripts fo
ii debconf 1.4.30.13 Debian configuration management sy
ii dpkg-dev 1.10.27 Package building tools for Debian
ii dupload 2.6.3 utility to upload Debian packages
ii fakeroot 1.2.10 Gives a fake root environment
ii libapt-pkg-perl 0.1.13 Perl interface to libapt-pkg
ii libxml-parser-perl 2.34-4 Perl module for parsing XML files
ii perl 5.8.4-8 Larry Wall's Practical Extraction
-- no debconf information
--- /usr/bin/cvs-autoreleasedeb 2005-03-15 16:57:34.000000000 -0300
+++ cvs-autoreleasedeb 2005-05-19 16:53:28.000000000 -0300
@@ -233,7 +233,11 @@
# Upload the packages
chdir($::PACKDIR.$s."/".$p);
- $cmd = "dupload --to ".$s."
".$p."_".$newstate_struct->{$s}{$p}."_".$arch.".changes";
+ my $stripedVer = $newstate_struct->{$s}{$p};
+ if($stripedVer =~ m/:(.+)$/) {
+ $stripedVer = $1;
+ }
+ $cmd = "dupload --to ".$s."
".$p."_".$stripedVer."_".$arch.".changes";
print $cmd."\n";
unless (system($cmd) == 0) {
@@ -248,7 +252,7 @@
$cmd = "rm -rf ".$::CVSDIR.$s;
print $cmd."\n";
system $cmd;
- $cmd = "rm -rf ".$::PACKDIR.$s;
+ #$cmd = "rm -rf ".$::PACKDIR.$s;
print $cmd."\n";
system $cmd;
}
