From 2b1c5204ab0e46c45e4b15cb505de70768097ccb Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Mon, 25 Apr 2016 18:11:17 +0200
Subject: [PATCH] added TODO for path verification
---
textarchive/vlib001.pl | 3 +++
1 file changed, 3 insertions(+)
diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index 9b60ad0..cc6cba9 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -165,6 +165,9 @@ $DEBUG= 1;
print "path=[$path]\n";
my $res= chdir ($path) or event_die ("can not change to $path");;
print "res=[$res]\n";
+
+ # verify if the chdir really lead to the expected place
+ # TODO: there might be symlinked paths or something like that, so this should pssibly not always fail
my $pwd= `pwd`; chop($pwd);
print "pwd=[$pwd]\n";
event_die ("chdir failed strangely path=[$path] pwd=[$pwd]") unless ($pwd eq $path);
--
GitLab