Skip to content

Commit 1c44abc

Browse files
committed
Perlito5 - TODO - update
1 parent 493e35f commit 1c44abc

File tree

2 files changed

+3
-14
lines changed

2 files changed

+3
-14
lines changed

TODO-perlito5

Lines changed: 1 addition & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -479,7 +479,7 @@ TODO list for Perlito5
479479
See: p5str_inc()
480480

481481
-- finish "overload" implementation
482-
See: s5str
482+
See: p5str
483483

484484
-- pack(), unpack()
485485
-- y()()
@@ -509,17 +509,6 @@ TODO list for Perlito5
509509
-- flip-flop operator
510510
if either operand to scalar '..' is a constant the value is implicitly compared to the input line number ($.)
511511

512-
-- unary minus on strings.
513-
514-
my $_ = "a"
515-
print -$_
516-
# -a
517-
518-
my $foo = '-bar';
519-
print $foo;
520-
print -$foo;
521-
# -bar+bar
522-
523512

524513
* Nice to Have
525514

t5/01-perlito/050-string.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -143,7 +143,7 @@ $r = --$v;
143143
print 'not ' if $r ne '-6'; say "ok 31 - string decrement - $r";
144144
print 'not ' if $v ne '-6'; say "ok 32 - string decrement - $v";
145145

146-
# negative
146+
# unary minus
147147

148148
$v = 'AZ';
149149
$r = -$v;
@@ -215,7 +215,7 @@ print 'not ' unless $r eq '0.12' || $r eq '+00.12';
215215
say "ok 49 - string negative - $r";
216216

217217

218-
# positive
218+
# unary plus
219219

220220
$v = 'AZ';
221221
$r = +$v;

0 commit comments

Comments
 (0)