From: Matt S Trout <matthewt@hercule.scsys.co.uk>
Date: Fri, 22 May 2009 17:42:04 +0000 (+0100)
Subject: switch to relative paths for symlink targets
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce84e9d9075aada04b1fab136a176b8aa0776a3e;p=engit%2FIron-Munger.git

switch to relative paths for symlink targets
---

diff --git a/lib/IronMunger/StatsSaver.pm b/lib/IronMunger/StatsSaver.pm
index be4156d..e8dfbd7 100644
--- 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
--- 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',
 );