--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/debian/get-source	Wed Sep 21 23:07:27 2011 +0200
@@ -0,0 +1,24 @@
+#! /usr/bin/perl
+use 5.010;
+use strict;
+use warnings;
+use autodie qw(:all);
+
+my $url = "sftp://schlittermann\@92.51.155.210";
+my $dir = "../orig";
+
+
+if (fork()) { wait }
+else {
+    my ($src, $dst);
+    chdir $dir;
+
+    chomp($src = (`lftp $url -e "cat latest; exit;"`)[0]);
+
+    $src =~ /^(?<name>.+)[-_](?<version>\d+)\.tar\.gz/
+	or die "$0: source file `$src' does not match expectations\n";
+    $dst = "$+{name}_$+{version}.orig.tar.gz";
+
+    system(lftp => $url, -e => "get -c $src -o $dst; exit;" );
+}
+

--- a/debian/source/get	Wed Sep 21 23:05:02 2011 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,24 +0,0 @@
-#! /usr/bin/perl
-use 5.010;
-use strict;
-use warnings;
-use autodie qw(:all);
-
-my $url = "sftp://schlittermann\@92.51.155.210";
-my $dir = "../orig";
-
-
-if (fork()) { wait }
-else {
-    my ($src, $dst);
-    chdir $dir;
-
-    chomp($src = (`lftp $url -e "cat latest; exit;"`)[0]);
-
-    $src =~ /^(?<name>.+)[-_](?<version>\d+)\.tar\.gz/
-	or die "$0: source file `$src' does not match expectations\n";
-    $dst = "$+{name}_$+{version}.orig.tar.gz";
-
-    system(lftp => $url, -e => "get -c $src -o $dst; exit;" );
-}
-