r61057 - in /trunk/libunicode-map-perl: debian/changelog debian/patches/pod.patch debian/patches/series debian/source/ debian/source/format t/map.t

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Jul 31 22:06:09 2010
New Revision: 61057

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61057
Log:
* Convert to source format 3.0 (quilt).
* Add a patch to fix a POD error.

Added:
    trunk/libunicode-map-perl/debian/patches/pod.patch
    trunk/libunicode-map-perl/debian/source/
    trunk/libunicode-map-perl/debian/source/format
Modified:
    trunk/libunicode-map-perl/debian/changelog
    trunk/libunicode-map-perl/debian/patches/series
    trunk/libunicode-map-perl/t/map.t

Modified: trunk/libunicode-map-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libunicode-map-perl/debian/changelog?rev=61057&op=diff
==============================================================================
--- trunk/libunicode-map-perl/debian/changelog (original)
+++ trunk/libunicode-map-perl/debian/changelog Sat Jul 31 22:06:09 2010
@@ -19,6 +19,10 @@
 
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
+
+  [ gregor herrmann ]
+  * Convert to source format 3.0 (quilt).
+  * Add a patch to fix a POD error.
 
  -- gregor herrmann <gregor+debian at comodo.priv.at>  Tue, 09 Oct 2007 22:33:03 +0200
 

Added: trunk/libunicode-map-perl/debian/patches/pod.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libunicode-map-perl/debian/patches/pod.patch?rev=61057&op=file
==============================================================================
--- trunk/libunicode-map-perl/debian/patches/pod.patch (added)
+++ trunk/libunicode-map-perl/debian/patches/pod.patch Sat Jul 31 22:06:09 2010
@@ -1,0 +1,23 @@
+Description: fix a POD error
+Origin: vendor
+Forwarded: no
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2010-07-31
+
+--- a/Map.pm
++++ b/Map.pm
+@@ -1109,12 +1109,12 @@
+ 
+ =head1 WARNINGS
+ 
+-=over 4
+-
+ You can demand Unicode::Map to issue warnings at deprecated or incompatible 
+ usage with the constants WARN_DEFAULT, WARN_DEPRECATION or WARN_COMPATIBILITY.
+ The latter both can be ored together.
+ 
++=over 4
++
+ =item No special warnings:
+ 
+ $Unicode::Map::WARNINGS = Unicode::Map::WARN_DEFAULT

Modified: trunk/libunicode-map-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libunicode-map-perl/debian/patches/series?rev=61057&op=diff
==============================================================================
--- trunk/libunicode-map-perl/debian/patches/series (original)
+++ trunk/libunicode-map-perl/debian/patches/series Sat Jul 31 22:06:09 2010
@@ -1,1 +1,2 @@
 test-big5.patch
+pod.patch

Added: trunk/libunicode-map-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libunicode-map-perl/debian/source/format?rev=61057&op=file
==============================================================================
--- trunk/libunicode-map-perl/debian/source/format (added)
+++ trunk/libunicode-map-perl/debian/source/format Sat Jul 31 22:06:09 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)

Modified: trunk/libunicode-map-perl/t/map.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libunicode-map-perl/t/map.t?rev=61057&op=diff
==============================================================================
--- trunk/libunicode-map-perl/t/map.t (original)
+++ trunk/libunicode-map-perl/t/map.t Sat Jul 31 22:06:09 2010
@@ -6,7 +6,7 @@
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 
-BEGIN { $| = 1; print "1..5\n"; }
+BEGIN { $| = 1; print "1..6\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Unicode::Map;
 $loaded = 1;
@@ -27,6 +27,7 @@
    ["GB2312",         "n->m: GB2312 (GB2312-80^8080 + ISO8859-1)"],
    ["DEVANAGA",       "n->m: DEVANAGA"],
    ["EUC_JP",         "n->m: EUC-JP"],
+   ["BIG5",           "n->m: BIG5"],
 );
 
 {
@@ -133,6 +134,21 @@
    return testMapping ( "APPLE-DEVANAGA", $_locale, $_unicode );
 }
 
+sub BIG5 {
+   my $_locale  =
+      "\xA5\x40"
+      ."\xA5\x41"
+      ."\x30"
+      ."  "
+   ;
+   my $_unicode =
+      "\x4E\x16"
+      ."\x4E\x15"
+      ."\x00\x30\x00\x20\x00\x20"
+   ;
+   return testMapping ( "BIG5", $_locale, $_unicode );
+}
+
 sub testMapping {
     my ( $charsetId, $txtLocale, $txtUnicode ) = @_;
     return 0 if ! ( my $Map = new Unicode::Map($charsetId) );