Permalink
Browse files

avoid the now-removed stdhandle method

  • Loading branch information...
1 parent 56b142f commit 921f3b7fcddd3e3a839866974d6c09c5e80fca00 @moritz moritz committed Nov 14, 2010
Showing with 5 additions and 5 deletions.
  1. +4 −4 src/HLL/Compiler.pm
  2. +1 −1 src/Regex/Cursor.pir
View
@@ -84,15 +84,15 @@ class HLL::Compiler is PCT::HLLCompiler {
method autoprint($value) {
pir::say(~$value)
- unless (pir::getinterp__P()).stdhandle(1).tell() > $*AUTOPRINTPOS;
+ unless (pir::getinterp__P()).stdout_handle().tell() > $*AUTOPRINTPOS;
}
method interactive(*%adverbs) {
my $target := pir::downcase(%adverbs<target>);
- pir::print__vPS( pir::getinterp__P().stdhandle(2), self.commandline_banner );
+ pir::print__vPS( pir::getinterp__P().stderr_handle(), self.commandline_banner );
- my $stdin := pir::getinterp__P().stdhandle(0);
+ my $stdin := pir::getinterp__P().stdin_handle();
my $encoding := ~%adverbs<encoding>;
if $encoding && $encoding ne 'fixed_8' {
$stdin.encoding($encoding);
@@ -108,7 +108,7 @@ class HLL::Compiler is PCT::HLLCompiler {
last if pir::isnull($code);
# Set the current position of stdout for autoprinting control
- my $*AUTOPRINTPOS := (pir::getinterp__P()).stdhandle(1).tell();
+ my $*AUTOPRINTPOS := (pir::getinterp__P()).stdout_handle().tell();
my $*CTXSAVE := self;
my $*MAIN_CTX;
@@ -485,7 +485,7 @@ Log a debug message.
line = $P0.'lineof'(orig, from, 'cache'=>1)
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ $P1 = $P0.'stderr_handle'()
$N0 = time
push fmt, $N0

0 comments on commit 921f3b7

Please sign in to comment.