fix how unicode is passed to system() call
David Golden
15 years ago
| 41 | 41 | |
| 42 | 42 | my %texts = ( |
| 43 | 43 | short => 'Hello World', |
| 44 | multiline => "First line\nSecond line\n", | |
| 45 | ( $] < 5.008 ? () : ( unicode => "Hi! \x{263a}\n") ), | |
| 44 | multiline => 'First line\nSecond line\n', | |
| 45 | ( $] < 5.008 ? () : ( unicode => 'Hi! \x{263a}\n') ), | |
| 46 | 46 | ); |
| 47 | 47 | |
| 48 | 48 | #--------------------------------------------------------------------------# |
| 51 | 51 | |
| 52 | 52 | my %methods = ( |
| 53 | 53 | perl => sub { eval $_[0] }, |
| 54 | sys => sub { system($^X, '-e', "eval q{$_[0]}") }, | |
| 54 | sys => sub { system($^X, '-e', $_[0]) }, | |
| 55 | 55 | ); |
| 56 | 56 | |
| 57 | 57 | #--------------------------------------------------------------------------# |
| 59 | 59 | my %channels = ( |
| 60 | 60 | stdout => { |
| 61 | 61 | output => sub { _binmode($_[0]) . "print STDOUT qq{STDOUT:$texts{$_[0]}}" }, |
| 62 | expect => sub { "STDOUT:$texts{$_[0]}", "" }, | |
| 62 | expect => sub { eval "qq{STDOUT:$texts{$_[0]}}", "" }, | |
| 63 | 63 | }, |
| 64 | 64 | stderr => { |
| 65 | 65 | output => sub { _binmode($_[0]) . "print STDERR qq{STDERR:$texts{$_[0]}}" }, |
| 66 | expect => sub { "", "STDERR:$texts{$_[0]}" }, | |
| 66 | expect => sub { "", eval "qq{STDERR:$texts{$_[0]}}" }, | |
| 67 | 67 | }, |
| 68 | 68 | both => { |
| 69 | 69 | output => sub { _binmode($_[0]) . "print STDOUT qq{STDOUT:$texts{$_[0]}}; print STDERR qq{STDERR:$texts{$_[0]}}" }, |
| 70 | expect => sub { "STDOUT:$texts{$_[0]}", "STDERR:$texts{$_[0]}" }, | |
| 70 | expect => sub { eval "qq{STDOUT:$texts{$_[0]}}", eval "qq{STDERR:$texts{$_[0]}}" }, | |
| 71 | 71 | }, |
| 72 | 72 | ); |
| 73 | 73 | |