--- a/Build.PL Sun Aug 07 12:21:17 2011 +0200
+++ b/Build.PL Sun Aug 07 12:25:10 2011 +0200
@@ -6,6 +6,7 @@
dist_name => "blockfuse",
dist_author => "Heiko Schlittermann <hs\@schlittermann.de>",
dist_version_from => "bin/blockfuse",
+ license => "restrictive",
script_files => [glob "bin/*"],
requires => {
perl => "5.10.0",
--- a/bin/blockfuse Sun Aug 07 12:21:17 2011 +0200
+++ b/bin/blockfuse Sun Aug 07 12:25:10 2011 +0200
@@ -14,7 +14,9 @@
# blockfuse /mnt
# rsync --inplace -Pa /mnt/sda1 /images/sda1
-# Just a short hack, not documentation, nothing else.
+# Just a short hack, no nice documentation, nothing else.
+
+# LICENSE:
# If your're insterested in extending this tool, please tell me, I'm
# willing to put it under some Open Source License. (Currently it's
# not!)
@@ -28,8 +30,8 @@
use Getopt::Long;
use Pod::Usage;
+our $VERSION = "0.1";
my $opt_debug = 0;
-our $VERSION = "0.1";
GetOptions(
"debug!" => \$opt_debug,