upgrade cells to utf-8 in csv input

diff --git a/lib/WebPAC/Input/CSV.pm b/lib/WebPAC/Input/CSV.pm
index fc11be7..26dab49 100644 (file)
--- a/lib/WebPAC/Input/CSV.pm
+++ b/lib/WebPAC/Input/CSV.pm
@@ -75,7 +75,11 @@ sub new {
                                } else {
                                        die "ERROR: $@ in line ",dump( $line );
                                }
+                       } else {
+                               utf8::upgrade( $cell );
+                               $str = $cell;
                        }
+                               
                        $rec->{ $col++ } = $str;
                }