Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Update make() to give a slightly more useful warning when $/ not set.
  • Loading branch information
pmichaud committed May 14, 2009
1 parent 612bcf3 commit bd9fafc
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions src/builtins/match.pir
Expand Up @@ -37,7 +37,13 @@ the current match object.
$P0 = getinterp
$P1 = $P0['lexpad';1]
$P2 = $P1['$/']
$I0 = can $P2, '!make'
unless $I0 goto err_make
$P2.'!make'(value)
.return ()
err_make:
'die'("make() cannot set result of non-Match object in $/")
.return ()
.end


Expand Down

0 comments on commit bd9fafc

Please sign in to comment.