Change working directory to location of builddocs.pl so that build will work under travis-ci .

rlove · rlove · commit 36ee13cc3a6e · 2016-10-02T13:43:59.000-06:00
diff --git a/docsource/builddocs.pl b/docsource/builddocs.pl
@@ -6,13 +6,21 @@
 use Markdent::Simple::Fragment;
 use File::Map qw(map_file);
 use File::Path qw(make_path);
+use Cwd 'abs_path';
 
 use constant false => 0;
 use constant true  => 1;
 
 main();
 
 sub main{
+    # change current working directory to location of script.
+    # this keeps realative paths later in script easier to maintain.
+    # Source:  https://sysengineers.wordpress.com/2009/12/04/changing-working-directory-to-script-location-in-perl/
+    my $path = abs_path($0);
+    $path =~ s/builddocs.pl//gi;
+    chdir ($path);
+
     # Create output directories if the don't exists
 	make_path("../docs");
 	
