diff options
| author |   Martin Schlemmer <azarah@gentoo.org> | 2002-04-21 12:08:39 +0000 |
|---|---|---|
| committer | Martin Schlemmer <azarah@gentoo.org> | 2002-04-21 12:08:39 +0000 |
| commit | c536477924692f8917380ae98f6efb579d72806f (patch) | |
| tree | 75f34dc6dd8cca9d0c594f8c63f0d1c1d8703abf /app-office | |
| parent | new version (diff) | |
| download | historical-c536477924692f8917380ae98f6efb579d72806f.tar.gz historical-c536477924692f8917380ae98f6efb579d72806f.tar.bz2 historical-c536477924692f8917380ae98f6efb579d72806f.zip | |
small fix
Diffstat (limited to 'app-office')
| -rw-r--r-- | app-office/openoffice-bin/files/641d/read_ins.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/app-office/openoffice-bin/files/641d/read_ins.pl b/app-office/openoffice-bin/files/641d/read_ins.pl index f1fbc1082e49..159c8862b1c3 100644 --- a/app-office/openoffice-bin/files/641d/read_ins.pl +++ b/app-office/openoffice-bin/files/641d/read_ins.pl @@ -12,6 +12,8 @@ # Modify to support $RUNARGS, as we dont want one script to # do all the work. # +# 21 Apr 2002: Make use of NetDir for getting a value for $dir. +# # NOTE: as I dont know any perl to start with, things may not # be done by the book ... feel free to fix .. =) @@ -170,8 +172,17 @@ while (<FH>) { $package = $1; } + # Only use Dir if not $dir is not set, as otherwise + # $dir will contain a valid NetDir. elsif (/^\s*Dir\s*=\s*([^;]+);/) { + if (!length($dir)) + { + $dir = $1; + } + } + elsif (/^\s*NetDir\s*=\s*([^;]+);/) + { $dir = $1; } elsif (/^\s*UnixRights\s*=\s*([^;]+);/) |