Bug#439666: [debdiff] does not find orig.tar.gz when that is in a different suite

[Luk Claes]

Hi

Attached is a first try at a patch. It's not tested yet... Any comments
welcome.

Cheers

Luk

Index: debdiff.pl
===================================================================
--- debdiff.pl	(revision 828)
+++ debdiff.pl	(working copy)
@@ -445,7 +445,17 @@
 	    no strict 'refs';
 	    my $cmd = qq(cd ${"dir$i"} && dpkg-source -x $dscs[$i] >/dev/null);
 	    system $cmd;
-	    fatal "$cmd failed" if $? != 0;
+	    if ($? != 0) {
+	    	    my $dir = dirname $dscs[1] if $i == 2;
+	    	    $dir = dirname $dscs[2] if $i == 1;
+	    	    my $cmdx = qq(cp $dir/$origs[$i] ${"dir$i"} >/dev/null);
+		    system $cmdx;
+		    fatal "$cmd failed" if $? != 0;
+		    my $dscx = basename $dscs[$i];
+		    $cmdx = qq(cp $diffs[$i] ${"dir$i"} && cp $dscs[$i] ${"dir$i"} && cd ${"dir$i"} && dpkg-source -x $dscx > /dev/null);
+		    system $cmdx;
+		    fatal "$cmd failed" if $? != 0;
+	    }
 	    opendir DIR,${"dir$i"};
 	    while ($_ = readdir(DIR)) {
 		    next if $_ eq '.' || $_ eq '..' || ! -d ${"dir$i"}."/$_";