[Module-build-checkins] Module-Build/lib/Module/Build/Platform VMS.pm,1.8,1.9
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-06-26 15:38:26
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build/Platform In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26614/lib/Module/Build/Platform Modified Files: VMS.pm Log Message: _prefixify() clearly doesn't work for VMS, but let's at least get it to compile. Index: VMS.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/VMS.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- VMS.pm 21 Jun 2005 22:49:30 -0000 1.8 +++ VMS.pm 26 Jun 2005 15:38:16 -0000 1.9 @@ -75,8 +75,9 @@ =cut # Translated from ExtUtils::MM_VMS::prefixify() -sub prefixify { - my($self, $path, $sprefix, $rprefix) = @_; +sub _prefixify { + my($self, $path, $sprefix, $type) = @_; + my $rprefix = $self->prefix; $self->log_verbose(" prefixify $path from $sprefix to $rprefix\n"); @@ -99,15 +100,16 @@ } else { my($path_vol, $path_dirs) = File::Spec->splitpath( $path ); - if( $path_vol eq $Config{vms_prefix}.':' ) { - $self->log_verbose(" $Config{vms_prefix}: seen\n"); + my $vms_prefix = $self->config->{vms_prefix}; + if( $path_vol eq $vms_prefix.':' ) { + $self->log_verbose(" $vms_prefix: seen\n"); $path_dirs =~ s{^\[}{\[.} unless $path_dirs =~ m{^\[\.}; $path = $self->_catprefix($rprefix, $path_dirs); } else { $self->log_verbose(" cannot prefixify.\n"); - $path = $self->_prefixify_default($rprefix, $default); + return $self->prefix_relpaths($self->installdirs, $type); } } |