strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

#i10633# admin.pl support for msidb.exe next to admin.pl

Browse source
This commit is contained in:
Ingo Schmidt 2009-10-29 11:33:58 +00:00
parent faf0b92ddb
commit 34cf5372d0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
setup_native/scripts/admin.pl
View file

@ -160,7 +160,9 @@ sub check_local_msidb
my $msidbname = "msidb.exe"; my $msidbname = "msidb.exe";
my $perlprogramm = $0; my $perlprogramm = $0;
my $path = $perlprogramm; my $path = $perlprogramm;
get_path_from_fullqualifiedname(\$path); get_path_from_fullqualifiedname(\$path);
$path =~ s/\\\s*$//; $path =~ s/\\\s*$//;
$path =~ s/\/\s*$//; $path =~ s/\/\s*$//;
@ -413,7 +415,7 @@ sub get_path_from_fullqualifiedname
if ( $$longfilenameref =~ /\Q$separator\E/ ) # Is there a separator in the path? Otherwise the path is empty. if ( $$longfilenameref =~ /\Q$separator\E/ ) # Is there a separator in the path? Otherwise the path is empty.
{ {
if ( $$longfilenameref =~ /^\s*(\S.*\S\Q$separator\E)(\S.+\S?)/ ) if ( $$longfilenameref =~ /^\s*(\S.*\Q$separator\E)(\S.+\S?)/ )
{ {
$$longfilenameref = $1; $$longfilenameref = $1;
} }