[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.437,1.438

[Ken W. <kwi...@us...>]

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),
 			  );
 }