diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-12 07:40:54 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-12 07:40:54 +0000 |
commit | 390b85e7c411323845dca16b7882a5a5754a433e (patch) | |
tree | 85ad2b4f7f3f7423e62b89223941e6670bce5d16 /win32/perllib.c | |
parent | 65e48ea94f536920f95a77a3a652fd45c687b28a (diff) | |
download | perl-390b85e7c411323845dca16b7882a5a5754a433e.tar.gz |
Egregious IOsubsystem code excised. Phew, what a relief! Two
files (win32/win32io.[ch]) completely removed, as are all traces
of them in makefiles and MANIFEST. RunPerl() retains the void* arg
for later. Various myfoo() things regularized to my_foo(). CPP not
required anymore to create a perl binary :)
p4raw-id: //depot/win32/perl@242
Diffstat (limited to 'win32/perllib.c')
-rw-r--r-- | win32/perllib.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index 56cba541b9..848360698b 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -14,9 +14,6 @@ RunPerl(int argc, char **argv, char **env, void *iosubsystem) { int exitstatus; PerlInterpreter *my_perl; - void *pOldIOSubsystem; - - pOldIOSubsystem = SetIOSubSystem(iosubsystem); PERL_SYS_INIT(&argc,&argv); @@ -37,8 +34,6 @@ RunPerl(int argc, char **argv, char **env, void *iosubsystem) PERL_SYS_TERM(); - SetIOSubSystem(pOldIOSubsystem); - return (exitstatus); } |