summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/DirTree.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/DirTree.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/DirTree.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/DirTree.pm b/Master/tlpkg/tlperl/lib/Tk/DirTree.pm
index 46d05fa3ab5..abdfbdb547d 100644
--- a/Master/tlpkg/tlperl/lib/Tk/DirTree.pm
+++ b/Master/tlpkg/tlperl/lib/Tk/DirTree.pm
@@ -7,7 +7,7 @@ package Tk::DirTree;
use strict;
use vars qw($VERSION);
-$VERSION = '4.021';
+$VERSION = '4.022';
use Tk;
use Tk::Derived;
@@ -181,7 +181,7 @@ sub dirnames {
$w->{curr_dir} = delete $args->{-initialdir};
if (!defined $w->{curr_dir}) {
require Cwd;
- $w->{curr_dir} = Cwd::cwd();
+ $w->{curr_dir} = Cwd::getcwd();
}
if (defined $args->{-mustexist}) {
die "-mustexist is not yet implemented";