[Omaha.pm] Substitution loop

[Jay Hannah]

Got you, you sneaky little !*#*!(!#$&*!!!  Below.

Amazingly those UTF-8 warnings don't kick unless I "p $d1". "x $d1" is not 
sufficient to see what's actually going on.

j
(wondering when we adopted UTF-8 in this database)



Model::OTA::CommonShare::_update_start(/home/jhannah/src/Omni/MVC/Model/OTA/CommonShare.pm:65):
65:       $d1=~s/[^\d]//g;

     DB<11> c
Model::OTA::CommonShare::_update_start(/home/jhannah/src/Omni/MVC/Model/OTA/CommonShare.pm:65):
65:       $d1=~s/[^\d]//g;

     DB<11> x $d1
0  '2007-08-11'

     DB<12> p $d1
2007-08-11

     DB<13> c
Malformed UTF-8 character (overflow at 0xc9237b89, byte 0x95, after start byte 0xff) in substitution (s///) at /home/jhannah/src/Omni/MVC/Model/OTA/CommonShare.pm line 65.
...stack trace here...
Malformed UTF-8 character (unexpected continuation byte 0x95, with no preceding start byte) in substitution iterator at /usr/lib/perl5/5.8.7/Carp/Heavy.pm line 61.
Malformed UTF-8 character (unexpected non-continuation byte 0x12, 1 byte after start byte 0xe0, expected 3 bytes) in substitution iterator at /usr/lib/perl5/5.8.7/Carp/Heavy.pm line 61.
Substitution loop at /usr/lib/perl5/5.8.7/Carp/Heavy.pm line 61.
...snip!...