- is($c, 1, 'len : get scalar length');
- is($b, $n - 1, 'len : get scalar length correctly');
+ is($c, 1, 'len : get scalar length');
+ is($b, $n, 'len : get scalar length correctly');
+
+ $n = 0;
+ $b = length $x;
+ is($c, 2, 'len : get scalar length 0');
+ is($b, $n, 'len : get scalar length 0 correctly');