summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl
index 62d683b2dbb..64330be358a 100644
--- a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl
+++ b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl
@@ -25,7 +25,7 @@ sub HList {
$FOLDIMG = $TOP->Bitmap(-file => Tk->findINC('folder.xbm'));
my $root = Tk->findINC('demos');
- my $olddir = cwd;
+ my $olddir = getcwd;
chdir $root;
show_dir '.', $root, $h;
chdir $olddir;