# HG changeset patch
# User HackEso <hackeso@esolangs.org>
# Date 1534850507 0
# Node ID 39cdfd040d023853b6979def8355ebc1f460f8c9
# Parent  6177c1938da6d8469f719e8ca5b522dfb0d03313
<oerjan> sled bin/toroman//s,g;,g;$t~s/.*E.*/Number too large/;,

diff -r 6177c1938da6 -r 39cdfd040d02 bin/toroman
--- a/bin/toroman	Tue Aug 21 11:21:39 2018 +0000
+++ b/bin/toroman	Tue Aug 21 11:21:47 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,$/