switch to relative paths for symlink targets

diff --git a/lib/IronMunger/StatsSaver.pm b/lib/IronMunger/StatsSaver.pm
index be4156d..e8dfbd7 100644 (file)
--- a/lib/IronMunger/StatsSaver.pm
+++ b/lib/IronMunger/StatsSaver.pm
@@ -6,6 +6,7 @@ class IronMunger::StatsSaver {
   use aliased 'IronMunger::Monger';
   use IO::All;
   use File::Path qw(mkpath);
+  use Path::Class qw(dir);
   use Text::CSV_XS;
 
   has dir => (is => 'ro', isa => Dir, required => 1, coerce => 1);
@@ -13,7 +14,7 @@ class IronMunger::StatsSaver {
   my @types = qw(male female);
 
   method _image_symlink_target (Str $type, Str $level) {
-    $self->dir->subdir('badges')->subdir($type)->file("${level}.png");
+    dir('../../badges')->subdir($type)->file("${level}.png");
   }
 
   method _image_symlink_from (Str $user, Str $type) {

diff --git a/t/stats_saver.t b/t/stats_saver.t
index 1bae8ad..90e6f60 100644 (file)
--- a/t/stats_saver.t
+++ b/t/stats_saver.t
@@ -22,7 +22,7 @@ ok(
 );
 
 is(
-  $saver->_image_symlink_target('male','iron'), 'X/badges/male/iron.png',
+  $saver->_image_symlink_target('male','iron'), '../../badges/male/iron.png',
   'Symlink target ok',
 );