Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31178/lib/Module/Build
Modified Files:
Base.pm
Log Message:
little simplification in prefix_relative()
Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.437
retrieving revision 1.438
diff -u -d -r1.437 -r1.438
--- Base.pm 23 Jun 2005 00:46:16 -0000 1.437
+++ Base.pm 23 Jun 2005 01:41:31 -0000 1.438
@@ -2625,14 +2625,13 @@
my $installdirs = $self->installdirs;
- my $map = $self->install_sets->{$installdirs};
- my $prefix_rel = $self->prefix_relpaths($installdirs, $type);
- return unless exists $map->{$type};
+ my $normal_location = $self->install_sets->{$installdirs}{$type}
+ or return;
- return $self->_prefixify($map->{$type},
+ return $self->_prefixify($normal_location,
$self->prefix_sets->{$installdirs},
$prefix,
- $prefix_rel
+ $self->prefix_relpaths($installdirs, $type),
);
}
|
