diff options
| author | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
| commit | 342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch) | |
| tree | 79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/Tk/demos | |
| parent | be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff) | |
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl | 2 |
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; |