Merge pull request #226 from philbudne/as7-octal

as7: accept (decimal) digits in octal constants, like as.s does!
2020-10-06 11:55:38 -04:00
parent 6e0f90c5a9 a08d97c8d8
commit 008cbc2938
1 changed files with 5 additions and 1 deletions
@@ -514,7 +514,11 @@ sub parse_expression {
 	    my $value = $1;
 	    printf "\tfound constant: $value\n" if ($debug);
 	    if ( $value =~ m{^0} ) {
-		$syllable = oct($value);
+		# PLB 2020-10-05: behave like as.s
+		$syllable = 0;
+		for my $digit (split(//, $value)) {
+		    $syllable = $syllable * 010 + ord($digit) - ord('0');
+		}
 	    }
 	    else {
 		$syllable = $value + 0;