[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm, 1.196, 1.197 Po.pm, 1.72, 1.73 TransTractor.pm, 1.90, 1.91"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv14975/lib/Locale/Po4a

Modified Files:
	Man.pm Po.pm TransTractor.pm 
Log Message:
New C extension. Not built or distributed by default.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.196
retrieving revision 1.197
diff -u -d -r1.196 -r1.197
--- Man.pm	16 Feb 2007 10:42:58 -0000	1.196
+++ Man.pm	24 Mar 2007 12:04:44 -0000	1.197
@@ -351,6 +351,7 @@
 =cut
 
 package Locale::Po4a::Man;
+use DynaLoader;
 
 use 5.006;
 use strict;
@@ -358,8 +359,12 @@
 
 require Exporter;
 use vars qw(@ISA @EXPORT);
- at ISA = qw(Locale::Po4a::TransTractor);
+ at ISA = qw(Locale::Po4a::TransTractor DynaLoader);
 @EXPORT = qw();#  new initialize);
+
+# Try to use a C extension if present.
+eval('bootstrap Locale::Po4a::Man "0.30"');
+
 use Locale::Po4a::TransTractor;
 use Locale::Po4a::Common;
 

Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -d -r1.72 -r1.73
--- Po.pm	16 Feb 2007 19:13:00 -0000	1.72
+++ Po.pm	24 Mar 2007 12:04:44 -0000	1.73
@@ -66,13 +66,18 @@
 require Exporter;
 
 package Locale::Po4a::Po;
+use DynaLoader;
 
 use Locale::Po4a::Common qw(wrap_msg wrap_mod wrap_ref_mod dgettext);
 
 use subs qw(makespace);
 use vars qw(@ISA @EXPORT_OK);
- at ISA = (Exporter);
- at EXPORT_OK = qw(move_po_if_needed);
+ at ISA = qw(Exporter DynaLoader);
+ at EXPORT = qw(%debug);
+ at EXPORT_OK = qw(&move_po_if_needed);
+
+# Try to use a C extension if present.
+eval("bootstrap Locale::Po4a::Po '$VERSION'");
 
 use 5.006;
 use strict;
@@ -87,7 +92,7 @@
 
 my @known_flags=qw(wrap no-wrap c-format fuzzy);
 
-my %debug=('canonize'	=> 0,
+our %debug=('canonize'	=> 0,
            'quote'	=> 0,
            'escape'	=> 0,
            'encoding'   => 0,
@@ -185,7 +190,7 @@
 
 =cut
 
-sub read{
+sub read {
     my $self=shift;
     my $filename=shift 
 	|| croak wrap_mod("po4a::po", dgettext("po4a", "Please provide a non-null filename"));

Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -d -r1.90 -r1.91
--- TransTractor.pm	16 Feb 2007 19:13:00 -0000	1.90
+++ TransTractor.pm	24 Mar 2007 12:04:44 -0000	1.91
@@ -3,6 +3,7 @@
 require Exporter;
 
 package Locale::Po4a::TransTractor;
+use DynaLoader;
 
 use 5.006;
 use strict;
@@ -11,11 +12,14 @@
 use subs qw(makespace);
 use vars qw($VERSION @ISA @EXPORT);
 $VERSION="0.30";
- at ISA = ();
+ at ISA = qw(DynaLoader);
 @EXPORT = qw(new process translate 
              read write readpo writepo
              getpoout setpoout);
 
+# Try to use a C extension if present.
+eval("bootstrap Locale::Po4a::TransTractor $VERSION");
+
 use Carp qw(croak);
 use Locale::Po4a::Po;
 use Locale::Po4a::Common;