other-patches/Unicode-Stringprep-1.00.patch

   1 Due to an apparent typo in Unicode::Stringprep $1 is not set causing errors like
   2
   3 Bareword found where operator expected at (eval 2569) line 1, near ""\"   : $char == 65 ? "a"
   4 syntax error at (eval 2569) line 1, near ""\"   : $char == 65 ? "a"
   5 String found where operator expected at (eval 2569) line 1, near "a"   : $char == 66 ? ""
   6 Bareword found where operator expected at (eval 2569) line 1, near ""   : $char == 66 ? "b"
   7 String found where operator expected at (eval 2569) line 1, near "b"   : $char == 67 ? ""
   8 Bareword found where operator expected at (eval 2569) line 1, near ""   : $char == 67 ? "c"
   9 String found where operator expected at (eval 2569) line 1, near "c"   : $char == 68 ? ""
  10 Bareword found where operator expected at (eval 2569) line 1, near ""   : $char == 68 ? "d"
  11 String found where operator expected at (eval 2569) line 1, near "d"   :  die) : ($char == 69 ? ""
  12 Bareword found where operator expected at (eval 2569) line 1, near ""   :  die) : ($char == 69 ? "e"
  13
  14 --- Unicode-Stringprep-1.00/lib/Unicode/Stringprep.pm   2007-10-06 19:11:49.000000000 +0900
  15 +++ Unicode-Stringprep-1.00/lib/Unicode/Stringprep.pm.new       2008-05-23 06:41:55.000000000 +0900
  16 @@ -78,7 +78,7 @@
  17       my $map = shift;
  18       if($#_ <= 7) {
  19         return (join '', (map { '$char == '.$_.
  20 -        ' ? "'.(join '', map { s/[\/\$\@\%\&\\]/\\$1/g; $_; } ( $$map{$_} )).'"'.
  21 +        ' ? "'.(join '', map { s/([\/\$\@\%\&\\])/\\$1/g; $_; } ( $$map{$_} )).'"'.
  22          '   : ' } @_)).' die';
  23       } else {
  24        my @a = splice @_, 0, int($#_/2);