Re: xluke_repwalker.pl

[mojotoad]

Simple patch to improve robust handling of node titles with funky characters, such as Ö, Ä, Ü and XML::Simple. Without binary mode this trips up the Text::CSV_XS read and write methods.

Matt

--- xluke_repwalker.old.pl      Thu May  9 01:24:40 2002
+++ xluke_repwalker.pl  Thu May  9 01:24:35 2002
@@ -362,7 +362,8 @@
    defined ($fh) or croak "Can't open file \'$filename\": $!";

    my $csv = Text::CSV_XS->new ({'always_quote' => 1,
-                                 'eol'          => "\n"
+                                 'eol'          => "\n",
+                                 'binary'       => 1,
                                 });

    while (<$fh>)
@@ -397,7 +398,8 @@
    defined ($fh) or croak "Can't create file \"$filename\": $!";

    my $csv = Text::CSV_XS->new ({'always_quote' => 1,
-                                 'eol'          => "\n"
+                                 'eol'          => "\n",
+                                 'binary'       => 1,
                                 });

    for (sort {$a <=> $b} keys %$nodehash)