equal
deleted
inserted
replaced
12 # rsync comparing the source and destination! |
12 # rsync comparing the source and destination! |
13 |
13 |
14 # blockfuse /mnt |
14 # blockfuse /mnt |
15 # rsync --inplace -Pa /mnt/sda1 /images/sda1 |
15 # rsync --inplace -Pa /mnt/sda1 /images/sda1 |
16 |
16 |
17 # Just a short hack, not documentation, nothing else. |
17 # Just a short hack, no nice documentation, nothing else. |
|
18 |
|
19 # LICENSE: |
18 # If your're insterested in extending this tool, please tell me, I'm |
20 # If your're insterested in extending this tool, please tell me, I'm |
19 # willing to put it under some Open Source License. (Currently it's |
21 # willing to put it under some Open Source License. (Currently it's |
20 # not!) |
22 # not!) |
21 |
23 |
22 use 5.010; |
24 use 5.010; |
26 use autodie qw(:all); |
28 use autodie qw(:all); |
27 use Fuse; |
29 use Fuse; |
28 use Getopt::Long; |
30 use Getopt::Long; |
29 use Pod::Usage; |
31 use Pod::Usage; |
30 |
32 |
|
33 our $VERSION = "0.1"; |
31 my $opt_debug = 0; |
34 my $opt_debug = 0; |
32 our $VERSION = "0.1"; |
|
33 |
35 |
34 GetOptions( |
36 GetOptions( |
35 "debug!" => \$opt_debug, |
37 "debug!" => \$opt_debug, |
36 "h|help" => sub { pod2usage(-verbose => 1, -exit => 0) }, |
38 "h|help" => sub { pod2usage(-verbose => 1, -exit => 0) }, |
37 "m|man" => sub { |
39 "m|man" => sub { |