[Pkg-xfce-commits] r2987 - scripts

[sargentd-guest at alioth.debian.org]

Author: sargentd-guest
Date: 2009-03-30 21:49:46 +0000 (Mon, 30 Mar 2009)
New Revision: 2987

Modified:
   scripts/get-sources.pl
Log:
add a possibility to mangle the version of upstream tarballs

0.8.0alpha > 0.8.0 :/


Modified: scripts/get-sources.pl
===================================================================
--- scripts/get-sources.pl	2009-03-18 22:18:48 UTC (rev 2986)
+++ scripts/get-sources.pl	2009-03-30 21:49:46 UTC (rev 2987)
@@ -40,7 +40,7 @@
 
 while(<SOURCES>) {
 	chop;
-	my ($pkg, $tarball) = split;
+	my ($pkg, $tarball, $version) = split;
 	! -d "$debian_dirs/$pkg" and next;
 	if ($tarball =~ /^DUMMY$/i) {
 		print "W: $pkg is a DUMMY package. Skipping\n";
@@ -62,6 +62,11 @@
 		$debian_filename =~ s/^[\w|-]*_/${pkg}_/;
 	}
 	
+	# mangle the version if needed
+	if($version) {
+		$debian_filename =~ s/^([\w|-]*)_.+?(\.tar.*)/$1_$version$2/;
+	}
+	
 	if($filename !~ /tar\.gz/) {
 		# assuming bzip2
 		my $decompressed_filename = $filename;