Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix boxing of strings in .flip, .join, .lc, .uc, and others.
Resolves RT #66300.
  • Loading branch information
pmichaud committed Jul 22, 2009
1 parent 78644a3 commit 21066f1
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 4 deletions.
2 changes: 1 addition & 1 deletion src/setting/Any-list.pm
Expand Up @@ -18,7 +18,7 @@ class Any is also {
$P1 = find_lex '$separator'
$S1 = $P1
$S0 = join $S1, $P0
%r = box $S0
%r = 'prefix:~'($S0)
}
}
Expand Down
2 changes: 1 addition & 1 deletion src/setting/Any-num.pm
Expand Up @@ -11,7 +11,7 @@ class Any is also {
Q:PIR {
$I0 = self
$S0 = chr $I0
%r = box $S0
%r = 'prefix:~'($S0)
}
}

Expand Down
4 changes: 2 additions & 2 deletions src/setting/Any-str.pm
Expand Up @@ -23,7 +23,7 @@ class Any is also {
Q:PIR {
$S0 = self
downcase $S0
%r = box $S0
%r = 'prefix:~'($S0)
}
}
Expand Down Expand Up @@ -183,7 +183,7 @@ B<Note:> partial implementation only
Q:PIR {
$S0 = self
upcase $S0
%r = box $S0
%r = 'prefix:~'($S0)
}
}
Expand Down

0 comments on commit 21066f1

Please sign in to comment.