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

INTEGRATION: CWS native97 (1.9.164); FILE MERGED

Browse source 
2007/07/10 10:47:10 is 1.9.164.1: #i79432# enable Unix links in scp2
This commit is contained in:
Ivo Hinkelmann 2007-07-12 10:15:50 +00:00
parent 8e380a40c7
commit f0bcf374c9
1 changed files with 20 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
solenv/bin/modules/installer/packagelist.pm
View file

@ -4,9 +4,9 @@
#
# $RCSfile: packagelist.pm,v $
#
# $Revision: 1.9 $
# $Revision: 1.10 $
#
# last change: $Author: obo $ $Date: 2007-01-25 15:23:52 $
# last change: $Author: ihi $ $Date: 2007-07-12 11:15:50 $
#
# The Contents of this file are made available subject to
# the terms of GNU Lesser General Public License Version 2.1.
@ -382,7 +382,7 @@ sub find_links_for_package
sub find_dirs_for_package
{
my ($dirlist, $filelist, $linklist, $packagename) = @_;
my ($dirlist, $filelist, $linklist, $unixlinklist, $packagename) = @_;
my @newdirlist = ();
@ -431,6 +431,23 @@ sub find_dirs_for_package
}
}
# also searching for unix links
if ( ! $includedir ) # also looking for links
{
for ( my $j = 0; $j <= $#{$unixlinklist}; $j++ )
{
my $onelink = ${$unixlinklist}[$j];
my $destination = $onelink->{'destination'};
if ( $destination =~ /^\s*\Q$hostname\E/ ) # the directory path is part of the file path!
{
$includedir = 1;
last;
}
}
}
# also investigating the flag CREATE (only added to gid_Module_Root)
if (( ! $includedir ) && ( $packagename eq "gid_Module_Root" ))