mirror of https://github.com/digint/btrbk
Merge 97516081fd
into 62fad0e326
commit
85d6f8eda9
8
btrbk
8
btrbk
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue