equal
deleted
inserted
replaced
13 |
13 |
14 local @ARGV = ($file); |
14 local @ARGV = ($file); |
15 my $destination = (map { /->\s*(\S+)/ } grep { /# ->/ } <>)[0]; |
15 my $destination = (map { /->\s*(\S+)/ } grep { /# ->/ } <>)[0]; |
16 |
16 |
17 die "No destination for $file\n" if not $destination; |
17 die "No destination for $file\n" if not $destination; |
18 say "$file\n => $destination"; |
18 say "$file => $destination"; |
19 |
19 |
20 system("scp", $file => $destination); |
20 system("scp", $file => $destination); |
21 die if $?; |
21 die if $?; |
22 |
22 |
23 } |
23 } |