From acfe0abcedaf592fb4b9cb69ce3468308ae99d91 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 31 Aug 2001 20:58:38 +0000
Subject: remove deprecated PERL_OBJECT cruft, it has long since stopped
 working in 5.7.x

p4raw-id: //depot/perl@11803
---
 epoc/epoc.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'epoc/epoc.c')

diff --git a/epoc/epoc.c b/epoc/epoc.c
index 6652ef0ce1..e5496eafd0 100644
--- a/epoc/epoc.c
+++ b/epoc/epoc.c
@@ -99,7 +99,7 @@ __fixunsdfsi (a)
 
 int 
 do_spawn( char *cmd) {
-    dTHXo;
+    dTHX;
     char *argv0, *ptr;
     char *cmdptr = cmd;
     int ret;
@@ -125,7 +125,7 @@ do_spawn( char *cmd) {
 int
 do_aspawn ( void *vreally, void **vmark, void **vsp) {
 
-    dTHXo;
+    dTHX;
 
     SV *really = (SV*)vreally;
     SV **mark = (SV**)vmark;
@@ -232,7 +232,7 @@ XS(epoc_getcwd)   /* more or less stolen from win32.c */
 void
 Perl_init_os_extras(void)
 { 
-  dTHXo;
+  dTHX;
   char *file = __FILE__;
   newXS("EPOC::getcwd", epoc_getcwd, file);
 }
-- 
cgit v1.2.1