Permalink
Browse files

fix perl5-m0's encoding of cli arguments

  • Loading branch information...
1 parent e6473c6 commit 9d8bde2b0a225627aeea5eb5a419ee3d34431b37 @cotto cotto committed May 2, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/m0/perl5/m0_interp.pl
@@ -161,7 +161,7 @@ sub new_interp {
my $const_length = bytes::length($arg) + 4 + 4 + 1; # byte count + encoding + string bytes + terminal null
my $string_length = bytes::length($arg) + 1; # byte count + terminal null
my $encoding = 0;
- push @$m0_argv, pack("iiia[$string_length]", $const_length, $string_length, $encoding, $arg);
+ push @$m0_argv, pack("iia[$string_length]", $string_length, $encoding, $arg);
}
$interp->[M0_ARGV] = $m0_argv;

0 comments on commit 9d8bde2

Please sign in to comment.