summaryrefslogtreecommitdiff
path: root/win32/perllib.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1997-11-12 07:40:54 +0000
committerGurusamy Sarathy <gsar@cpan.org>1997-11-12 07:40:54 +0000
commit390b85e7c411323845dca16b7882a5a5754a433e (patch)
tree85ad2b4f7f3f7423e62b89223941e6670bce5d16 /win32/perllib.c
parent65e48ea94f536920f95a77a3a652fd45c687b28a (diff)
downloadperl-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.c5
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);
}