build.pl: chdir to root before building

2011-01-05 08:21:27 -08:00 · 2011-01-05 08:21:27 -08:00 · 3201302ad8
parent 159dc094cf
commit 3201302ad8
1 changed files with 3 additions and 0 deletions
--- a/build.pl
+++ b/build.pl
@ -2,11 +2,14 @@

 use strict;
 use Getopt::Long;
+use FindBin;

 my $opt_list;
 my $opt_eachclean;
 my $opt_verbose;

+chdir($FindBin::Bin) or die "Couldn't chdir to $FindBin::Bin: $!";
+
 GetOptions("list" => \$opt_list,
           "eachclean" => \$opt_eachclean,
           "verbose" => \$opt_verbose,