www/p5-RT-Extension-MandatoryOnTransition/files/patch-inc__Module__Install__RTx.pm


1
2
3
4
5
6
7
8
9
10
11

--- inc/Module/Install/RTx.pm.orig	2014-09-30 22:25:05 UTC
+++ inc/Module/Install/RTx.pm
@@ -85,7 +85,7 @@
     my %index = map { $_ => 1 } @INDEX_DIRS;
     $self->no_index( directory => $_ ) foreach grep !$index{$_}, @DIRS;
 
-    my $args = join ', ', map "q($_)", map { ($_, $path{$_}) }
+    my $args = join ', ', map "q($_)", map { ($_, "\${DESTDIR}$path{$_}") }
         sort keys %path;
 
     printf "%-10s => %s\n", $_, $path{$_} for sort keys %path;