[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.497,1.498

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

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv488/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Use accessor methods in a few places

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.497
retrieving revision 1.498
diff -u -d -r1.497 -r1.498
--- Base.pm	4 Oct 2005 02:44:09 -0000	1.497
+++ Base.pm	11 Oct 2005 01:49:06 -0000	1.498
@@ -3104,18 +3104,16 @@
 
 sub install_destination {
   my ($self, $type) = @_;
-  my $p = $self->{properties};
   
-  return $p->{install_path}{$type} if exists $p->{install_path}{$type};
-  return File::Spec->catdir($p->{install_base}, $self->install_base_relpaths($type)) if $p->{install_base};
-  return File::Spec->catdir($p->{prefix}, $self->prefix_relative($type)) if $p->{prefix};
-  return $p->{install_sets}{ $p->{installdirs} }{$type};
+  return $self->install_path->{$type} if exists $self->install_path->{$type};
+  return File::Spec->catdir($self->install_base, $self->install_base_relpaths($type)) if $self->install_base;
+  return File::Spec->catdir($self->prefix, $self->prefix_relative($type)) if $self->prefix;
+  return $self->install_sets->{ $self->installdirs }{$type};
 }
 
 sub install_types {
   my $self = shift;
-  my $p = $self->{properties};
-  my %types = (%{$p->{install_path}}, %{ $p->{install_sets}{$p->{installdirs}} });
+  my %types = (%{$self->install_path}, %{ $self->install_sets->{$self->installdirs} });
 
   unless ( $self->gen_html && $self->install_html ) {
     delete( $types{binhtml} );