diff -r 519fca1ac4d5 -r b9c8d2fed9b7 install --- a/install Mon Dec 15 08:17:27 2014 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,23 +0,0 @@ -#! /usr/bin/perl - -use 5.010; -use strict; -use warnings; - -die "$0: need filenames to install\n" if not @ARGV; - -install($_) foreach @ARGV; - -sub install { - my $file = shift; - - local @ARGV = ($file); - my $destination = (map { /->\s*(\S+)/ } grep { /# ->/ } <>)[0]; - - die "No destination for $file\n" if not $destination; - say "$file => $destination"; - - system("scp", $file => $destination); - die if $?; - -}