diff options
-rw-r--r-- | ChangeLog | 8 | ||||
-rwxr-xr-x | mpc.pl | 2 | ||||
-rwxr-xr-x | mwc.pl | 2 |
3 files changed, 10 insertions, 2 deletions
@@ -1,3 +1,11 @@ +Fri Aug 22 07:04:17 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl> + + * mwc.pl: + * mpc.pl: + Use RealBin to get the location of this script, that gives the + real location also in case we use a symbolic link to these + scripts. + Wed Aug 20 19:19:17 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl> * devtools/document_template.pl: @@ -20,7 +20,7 @@ use FindBin; use File::Spec; use File::Basename; -my $basePath = $FindBin::Bin; +my $basePath = $FindBin::RealBin; if ($^O eq 'VMS') { $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq ''); $basePath = VMS::Filespec::unixify($basePath); @@ -20,7 +20,7 @@ use FindBin; use File::Spec; use File::Basename; -my $basePath = $FindBin::Bin; +my $basePath = $FindBin::RealBin; if ($^O eq 'VMS') { $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq ''); $basePath = VMS::Filespec::unixify($basePath); |