Get rid of most absolute paths

Author: moritz

evalbot.pl

@@ -286,7 +286,7 @@ package Evalbot;
             my $name = "$1";
             # XXX We want better integration so that this can go to the right place
             if (EvalbotExecuter::try_lock($name)) {
-                system "(./build.pl $name; echo 'freenode #perl6 Rebuild of $name complete.' >> /home/p6eval/dalek-queue) &";
+                system "(./build.pl $name; echo 'freenode #perl6 Rebuild of $name complete.' >> ~/dalek-queue) &";
                 return "OK (started asynchronously)";
             } else {
                 return "NOT OK (maybe a rebuild is already in progress?)";

lib/EvalbotExecuter.pm

@@ -143,7 +143,7 @@ sub _fork_and_eval {
 
 sub try_lock {
     my $name = shift;
-    my $lockfile = "/home/p6eval/evalbot/build-scripts/lock.$name";
+    my $lockfile = (glob '~') . "/evalbot/build-scripts/lock.$name";
     open my $lock, '>', $lockfile or return;
     flock($lock, 6) && $lock;
 }