changeset 16 | 83c4e0e9b86c |
parent 14 | b9668efb2ee3 |
--- a/install Thu Jul 11 23:25:42 2013 +0200 +++ b/install Thu Jul 11 23:26:03 2013 +0200 @@ -15,7 +15,7 @@ my $destination = (map { /->\s*(\S+)/ } grep { /# ->/ } <>)[0]; die "No destination for $file\n" if not $destination; - say "$file\n => $destination"; + say "$file => $destination"; system("scp", $file => $destination); die if $?;