Mercurial > octave-dspies
changeset 18709:a18e223224c5
Fix pkg install -global (bug #41644)
* scripts/pkg/private/default_prefix.m (default_prefix):
Add optional second input argument 'desc'
* scripts/pkg/private/getarchprefix.m (getarchprefix):
Call 'default_prefix' with 'desc' as second parameter
author | Stefan Mahr <dac922@gmx.de> |
---|---|
date | Sun, 16 Mar 2014 13:19:25 +0100 |
parents | ec55f6870efb |
children | d57a83f2d73e |
files | scripts/pkg/private/default_prefix.m scripts/pkg/private/getarchprefix.m |
diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/pkg/private/default_prefix.m Wed Apr 30 08:24:08 2014 -0700 +++ b/scripts/pkg/private/default_prefix.m Sun Mar 16 13:19:25 2014 +0100 @@ -22,11 +22,16 @@ ## Undocumented internal function. ## @end deftypefn -function [prefix, archprefix] = default_prefix (global_install) +function [prefix, archprefix] = default_prefix (global_install, desc) if (global_install) prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages"); - archprefix = fullfile (octave_config_info ("libdir"), "octave", - "packages", [desc.name "-" desc.version]); + if (nargin == 2) + archprefix = fullfile (octave_config_info ("libdir"), "octave", + "packages", [desc.name "-" desc.version]); + else + archprefix = fullfile (octave_config_info ("libdir"), "octave", + "packages"); + endif else prefix = tilde_expand (fullfile ("~", "octave")); archprefix = prefix;
--- a/scripts/pkg/private/getarchprefix.m Wed Apr 30 08:24:08 2014 -0700 +++ b/scripts/pkg/private/getarchprefix.m Sun Mar 16 13:19:25 2014 +0100 @@ -24,7 +24,7 @@ function archprefix = getarchprefix (desc, global_install) if (global_install) - [~, archprefix] = default_prefix (global_install); + [~, archprefix] = default_prefix (global_install, desc); else archprefix = desc.dir; endif