# HG changeset patch
# User HackEso <hackeso@esolangs.org>
# Date 1534850481 0
# Node ID 850795428cd065cb49bf473870d3a1f30a205190
# Parent  d0d89ff37e506b70a889a35694750442825284c7
<oerjan> sled bin/toroman//s,g;,g;$t~s/.*E.*/Number too large;/,

diff -r d0d89ff37e50 -r 850795428cd0 bin/toroman
--- a/bin/toroman	Tue Aug 21 11:04:36 2018 +0000
+++ b/bin/toroman	Tue Aug 21 11:21:21 2018 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl
-sub k{my$t;$t=~y/IVXLCDM/XLCDMEE/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$t}$_=(shift=~/(\w+)/)[0];print k,$/
+sub k{my$t;$t=~y/IVXLCDM/XLCDMEE/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$t~s/.*E.*/Number too large;/$t}$_=(shift=~/(\w+)/)[0];print k,$/