File tree Expand file tree Collapse file tree 2 files changed +3
-14
lines changed Expand file tree Collapse file tree 2 files changed +3
-14
lines changed Original file line number Diff line number Diff line change @@ -479,7 +479,7 @@ TODO list for Perlito5
479
479
See: p5str_inc()
480
480
481
481
-- finish "overload" implementation
482
- See: s5str
482
+ See: p5str
483
483
484
484
-- pack(), unpack()
485
485
-- y()()
@@ -509,17 +509,6 @@ TODO list for Perlito5
509
509
-- flip-flop operator
510
510
if either operand to scalar '..' is a constant the value is implicitly compared to the input line number ($.)
511
511
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
-
523
512
524
513
* Nice to Have
525
514
Original file line number Diff line number Diff line change @@ -143,7 +143,7 @@ $r = --$v;
143
143
print ' not ' if $r ne ' -6' ; say " ok 31 - string decrement - $r " ;
144
144
print ' not ' if $v ne ' -6' ; say " ok 32 - string decrement - $v " ;
145
145
146
- # negative
146
+ # unary minus
147
147
148
148
$v = ' AZ' ;
149
149
$r = -$v ;
@@ -215,7 +215,7 @@ print 'not ' unless $r eq '0.12' || $r eq '+00.12';
215
215
say " ok 49 - string negative - $r " ;
216
216
217
217
218
- # positive
218
+ # unary plus
219
219
220
220
$v = ' AZ' ;
221
221
$r = +$v ;
You can’t perform that action at this time.
0 commit comments