This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Manual eror in #12147.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 22 Sep 2001 23:33:42 +0000 (23:33 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 22 Sep 2001 23:33:42 +0000 (23:33 +0000)
p4raw-id: //depot/perl@12148

win32/win32.c

index 30d63c6..19bb1dc 100644 (file)
@@ -3008,7 +3008,7 @@ win32_rmdir(const char *dir)
 DllExport int
 win32_chdir(const char *dir)
 {
-    dTHXo;
+    dTHX;
     if (!dir) {
        errno = ENOENT;
        return -1;