pull/180/merge
Wicher 2017-09-22 13:06:53 +00:00 committed by GitHub
commit 85d6f8eda9
1 changed files with 2 additions and 6 deletions

8
btrbk
View File

@ -1,4 +1,4 @@
#!/usr/bin/perl -T
#!/usr/bin/env perl
#
# btrbk - Create snapshots and remote backups of btrfs subvolumes
#
@ -1829,6 +1829,7 @@ sub vinfo_rsh($;@)
my @ssh_options = ('-q');
push(@ssh_options, '-p', $ssh_port) if($ssh_port ne "default");
push(@ssh_options, '-c', $ssh_cipher_spec) if($ssh_cipher_spec ne "default");
push(@ssh_options, '-q');
if($ssh_identity) {
push(@ssh_options, '-i', $ssh_identity);
} else {
@ -3690,11 +3691,6 @@ sub exit_status
MAIN:
{
# set PATH instead of using absolute "/sbin/btrfs" (for now), as
# different distros (and even different versions of btrfs-progs)
# install the "btrfs" executable to different locations.
$ENV{PATH} = '/sbin:/bin:/usr/sbin:/usr/bin';
Getopt::Long::Configure qw(gnu_getopt);
my $start_time = time;
@tm_now = localtime($start_time);