Skip to content
Permalink
Browse files

Remove --encoding support

  • Loading branch information...
pmurias committed Oct 15, 2018
1 parent 0fb95ae commit bea08ec6e41fb5b9a0b5c98d4656ed8ffeb7f3cd
Showing with 1 addition and 8 deletions.
  1. +0 −5 src/Perl6/Compiler.nqp
  2. +1 −3 src/core/ForeignCode.pm6
@@ -74,10 +74,6 @@ class Perl6::Compiler is HLL::Compiler {
my $repl-class := self.eval('REPL', :outer_ctx(nqp::null()), |%adverbs);
$p6repl := $repl-class.new(self, %adverbs);
my $stdin := stdin();
my $encoding := ~%adverbs<encoding>;
if $encoding && $encoding ne 'fixed_8' {
$stdin.set-encoding($encoding);
}

$p6repl.repl-loop(:interactive(1), |%adverbs)
}
@@ -100,7 +96,6 @@ and, by default, also executes the compiled code.
-M module loads the module prior to running the program
--target=stage specify compilation stage to emit
--optimize=level use the given level of optimization (0..3)
--encoding=mode specify string encoding mode
-o, --output=name specify name of output file
-v, --version display version information
-V print configuration summary
@@ -40,9 +40,7 @@ proto sub EVAL($code is copy where Blob|Cool|Callable, Str() :$lang = 'perl6', P
}
return {*};
}
$code = nqp::istype($code,Blob) ?? $code.decode(
$compiler.cli-options<encoding> // 'utf8'
) !! $code.Str;
$code = nqp::istype($code,Blob) ?? $code.decode('utf8') !! $code.Str;

$context := CALLER:: unless nqp::defined($context);
my $eval_ctx := nqp::getattr(nqp::decont($context), PseudoStash, '$!ctx');

0 comments on commit bea08ec

Please sign in to comment.
You can’t perform that action at this time.