--- 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;" );
-}
-