fix perl5-m0's encoding of cli arguments

parrot · May 2, 2012 · 9d8bde2 · 9d8bde2
1 parent e6473c6
commit 9d8bde2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/m0/perl5/m0_interp.pl b/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;