Fixed so that the @inc setting stuff actually works.

blogs-perl-org · Sep 3, 2012 · 5d584f9 · 5d584f9
1 parent 8fe5475
commit 5d584f9
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/bin/mt-simple-rebuild b/bin/mt-simple-rebuild
@@ -2,11 +2,16 @@
 
 use strict;
 use Getopt::Long;
+
 my $basedir;
+BEGIN {
+
+    my $result = GetOptions("basedir=s" => \$basedir);
+    if (! $basedir) {
+        die "usage: mt-simple-rebuild --basedir=/path/to/MT\n";
+    }
 
-my $result = GetOptions("basedir=s" => \$basedir);
-if (! $basedir) {
-     die "usage: mt-simple-rebuild --basedir=/path/to/MT\n";
+    $basedir .= '/' unless $basedir =~ m|/$|;
 }
 
 use constant MT_DIR => $basedir;