Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Update tapir to run with parrot HEAD

  • Loading branch information...
commit c449b856f15695e3206d632930af6aff4247bc92 1 parent 11f686d
@darbelo darbelo authored
Showing with 5 additions and 4 deletions.
  1. +2 −2 lib/Tapir/Parser.pir
  2. +3 −2 t/harness.pir
View
4 lib/Tapir/Parser.pir
@@ -77,7 +77,7 @@ Written and maintained by Jonathan "Duke" Leto C<< jonathan@leto.net >>.
split parts, "# ", curr_line
$S0 = parts[1]
$S0 = substr $S0, 0, 4
- downcase $S0
+ $S0 = downcase $S0
if $S0 != "skip" goto passz
# it is a SKIP test!
inc skip
@@ -88,7 +88,7 @@ Written and maintained by Jonathan "Duke" Leto C<< jonathan@leto.net >>.
split parts, "# ", curr_line
$S0 = parts[1]
$S0 = substr $S0, 0, 4
- downcase $S0
+ $S0 = downcase $S0
if $S0 != "todo" goto failz
# it is a TODO test!
inc todo
View
5 t/harness.pir
@@ -39,7 +39,7 @@ HELP
.param pmc argv
.local pmc getopts, opts
load_bytecode "Getopt/Obj.pbc"
- getopts = new 'Getopt::Obj'
+ getopts = new ['Getopt';'Obj']
getopts."notOptStop"(1)
push getopts, "exec|e:s"
push getopts, "verbose|v"
@@ -227,7 +227,8 @@ HELP
cmd = join ' ', command_and_args
.local pmc pipe
- pipe = open cmd, 'rp'
+ pipe = new ['FileHandle']
+ pipe.'open'(cmd, 'rp')
unless pipe goto pipe_open_error
.local pmc output

0 comments on commit c449b85

Please sign in to comment.
Something went wrong with that request. Please try again.