r51197 - in /branches/upstream/libencode-arabic-perl/current: META.yml README lib/Encode/Arabic.pm lib/Encode/Arabic/ArabTeX/ZDMG.pm
aelmahmoudy-guest at users.alioth.debian.org
aelmahmoudy-guest at users.alioth.debian.org
Mon Jan 18 11:10:42 UTC 2010
Author: aelmahmoudy-guest
Date: Mon Jan 18 11:10:35 2010
New Revision: 51197
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51197
Log:
[svn-upgrade] Integrating new upstream version, libencode-arabic-perl (1.9)
Modified:
branches/upstream/libencode-arabic-perl/current/META.yml
branches/upstream/libencode-arabic-perl/current/README
branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic.pm
branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic/ArabTeX/ZDMG.pm
Modified: branches/upstream/libencode-arabic-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libencode-arabic-perl/current/META.yml?rev=51197&op=diff
==============================================================================
--- branches/upstream/libencode-arabic-perl/current/META.yml (original)
+++ branches/upstream/libencode-arabic-perl/current/META.yml Mon Jan 18 11:10:35 2010
@@ -1,6 +1,6 @@
---
name: Encode-Arabic
-version: 1.8
+version: 1.9
author:
- 'Otakar Smrz <otakar smrz mff cuni cz>'
abstract: Encodings of Arabic
@@ -14,7 +14,7 @@
provides:
Encode::Arabic:
file: lib/Encode/Arabic.pm
- version: 1.8
+ version: 1.9
Encode::Arabic::ArabTeX:
file: lib/Encode/Arabic/ArabTeX.pm
version: 7.17
@@ -26,7 +26,7 @@
version: 7.17
Encode::Arabic::ArabTeX::ZDMG:
file: lib/Encode/Arabic/ArabTeX/ZDMG.pm
- version: 6.76
+ version: 8.08
Encode::Arabic::ArabTeX::ZDMG::RE:
file: lib/Encode/Arabic/ArabTeX/ZDMG/RE.pm
version: 1.43
Modified: branches/upstream/libencode-arabic-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libencode-arabic-perl/current/README?rev=51197&op=diff
==============================================================================
--- branches/upstream/libencode-arabic-perl/current/README (original)
+++ branches/upstream/libencode-arabic-perl/current/README Mon Jan 18 11:10:35 2010
@@ -33,7 +33,7 @@
COPYRIGHT AND LICENCE
-Copyright (C) 2003-2008 Otakar Smrz
+Copyright (C) 2003-2009 Otakar Smrz
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic.pm?rev=51197&op=diff
==============================================================================
--- branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic.pm (original)
+++ branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic.pm Mon Jan 18 11:10:35 2010
@@ -2,11 +2,11 @@
#
# Encodings of Arabic ##########################################################################
-# $Id: Arabic.pm 675 2008-08-14 00:25:15Z smrz $
+# $Id: Arabic.pm 808 2009-02-09 23:19:07Z smrz $
package Encode::Arabic;
-our $VERSION = '1.8' || do { q $Revision: 675 $ =~ /(\d+)/; sprintf "%4.2f", $1 / 100 };
+our $VERSION = '1.9' || do { q $Revision: 808 $ =~ /(\d+)/; sprintf "%4.2f", $1 / 100 };
sub import { # perform import as if Encode were used one level before this module
@@ -86,7 +86,7 @@
=head1 REVISION
- $Revision: 675 $ $Date: 2008-08-14 02:25:15 +0200 (Thu, 14 Aug 2008) $
+ $Revision: 808 $ $Date: 2009-02-10 00:19:07 +0100 (Tue, 10 Feb 2009) $
=head1 SYNOPSIS
@@ -261,7 +261,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2003-2008 by Otakar Smrz
+Copyright 2003-2009 by Otakar Smrz
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic/ArabTeX/ZDMG.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic/ArabTeX/ZDMG.pm?rev=51197&op=diff
==============================================================================
--- branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic/ArabTeX/ZDMG.pm (original)
+++ branches/upstream/libencode-arabic-perl/current/lib/Encode/Arabic/ArabTeX/ZDMG.pm Mon Jan 18 11:10:35 2010
@@ -2,7 +2,7 @@
#
# Encoding of Arabic: ArabTeX Notation by Klaus Lagally, ZDMG #################################
-# $Id: ZDMG.pm 676 2008-08-14 11:25:26Z smrz $
+# $Id: ZDMG.pm 808 2009-02-09 23:19:07Z smrz $
package Encode::Arabic::ArabTeX::ZDMG;
@@ -13,7 +13,7 @@
use Carp;
-our $VERSION = do { q $Revision: 676 $ =~ /(\d+)/; sprintf "%4.2f", $1 / 100 };
+our $VERSION = do { q $Revision: 808 $ =~ /(\d+)/; sprintf "%4.2f", $1 / 100 };
use Encode::Arabic::ArabTeX ();
@@ -343,7 +343,7 @@
(
map {
- "l-" . $_->[0] x 2, [ '', $_->[0] . "-" . $_->[0] ],
+ "l-" . $_->[0] x 2, [ "", $_->[0] . "-" . $_->[0] ],
} @sunny, @moony
),
@@ -449,18 +449,37 @@
(
map {
- "i" . $_, [ '', "I" ],
- "u" . $_, [ '', "U" ],
-
- "\\cap\x09" . "i" . $_, [ '', "\\cap\x09" . "I" ],
- "\\cap\x0A" . "i" . $_, [ '', "\\cap\x0A" . "I" ],
- "\\cap\x0D" . "i" . $_, [ '', "\\cap\x0D" . "I" ],
- "\\cap\x20" . "i" . $_, [ '', "\\cap\x20" . "I" ],
-
- "\\cap\x09" . "u" . $_, [ '', "\\cap\x09" . "U" ],
- "\\cap\x0A" . "u" . $_, [ '', "\\cap\x0A" . "U" ],
- "\\cap\x0D" . "u" . $_, [ '', "\\cap\x0D" . "U" ],
- "\\cap\x20" . "u" . $_, [ '', "\\cap\x20" . "U" ],
+ my $fix = $_;
+
+ "i" . $_, [ "", "I" ],
+ "u" . $_, [ "", "U" ],
+
+ "\\cap\x09" . "i" . $_, [ "", "\\cap\x09" . "I" ],
+ "\\cap\x0A" . "i" . $_, [ "", "\\cap\x0A" . "I" ],
+ "\\cap\x0D" . "i" . $_, [ "", "\\cap\x0D" . "I" ],
+ "\\cap\x20" . "i" . $_, [ "", "\\cap\x20" . "I" ],
+
+ "\\cap\x09" . "u" . $_, [ "", "\\cap\x09" . "U" ],
+ "\\cap\x0A" . "u" . $_, [ "", "\\cap\x0A" . "U" ],
+ "\\cap\x0D" . "u" . $_, [ "", "\\cap\x0D" . "U" ],
+ "\\cap\x20" . "u" . $_, [ "", "\\cap\x20" . "U" ],
+
+ map {
+
+ "i" . $fix . $_->[0], [ "i", $fix . $_->[0] ],
+ "u" . $fix . $_->[0], [ "u", $fix . $_->[0] ],
+
+ "\\cap\x09" . "i" . $fix . $_->[0], [ "I", $fix . $_->[0] ],
+ "\\cap\x0A" . "i" . $fix . $_->[0], [ "I", $fix . $_->[0] ],
+ "\\cap\x0D" . "i" . $fix . $_->[0], [ "I", $fix . $_->[0] ],
+ "\\cap\x20" . "i" . $fix . $_->[0], [ "I", $fix . $_->[0] ],
+
+ "\\cap\x09" . "u" . $fix . $_->[0], [ "U", $fix . $_->[0] ],
+ "\\cap\x0A" . "u" . $fix . $_->[0], [ "U", $fix . $_->[0] ],
+ "\\cap\x0D" . "u" . $fix . $_->[0], [ "U", $fix . $_->[0] ],
+ "\\cap\x20" . "u" . $fix . $_->[0], [ "U", $fix . $_->[0] ],
+
+ } @vowel, $empty[0]
} "y", "w" # "'"
),
@@ -521,10 +540,10 @@
(
map {
- "\\cap\x09" . $_, [ '', "\\cap " ],
- "\\cap\x0A" . $_, [ '', "\\cap " ],
- "\\cap\x0D" . $_, [ '', "\\cap " ],
- "\\cap\x20" . $_, [ '', "\\cap " ],
+ "\\cap\x09" . $_, [ "", "\\cap " ],
+ "\\cap\x0A" . $_, [ "", "\\cap " ],
+ "\\cap\x0D" . $_, [ "", "\\cap " ],
+ "\\cap\x20" . $_, [ "", "\\cap " ],
} "\x09", "\x0A", "\x0D", "\x20"
),
@@ -557,7 +576,7 @@
=head1 REVISION
- $Revision: 676 $ $Date: 2008-08-14 13:25:26 +0200 (Thu, 14 Aug 2008) $
+ $Revision: 808 $ $Date: 2009-02-10 00:19:07 +0100 (Tue, 10 Feb 2009) $
=head1 SYNOPSIS
@@ -619,7 +638,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2003-2008 by Otakar Smrz
+Copyright 2003-2009 by Otakar Smrz
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
More information about the Pkg-perl-cvs-commits
mailing list