texinfo/tp/Texinfo/Convert Converter.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/10/08 09:55:57

Modified files:
        tp/Texinfo/Convert: Converter.pm 

Log message:
        Put xml related formatting functions in @EXPORT_OK.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Convert/Converter.pm?cvsroot=texinfo&r1=1.54&r2=1.55

Patches:
Index: Converter.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/Converter.pm,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- Converter.pm        1 Oct 2011 22:58:50 -0000       1.54
+++ Converter.pm        8 Oct 2011 09:55:56 -0000       1.55
@@ -26,8 +26,28 @@
 use Texinfo::Common;
 use Texinfo::Convert::Text;
 
-use vars qw(@ISA $VERSION);
address@hidden = qw(Texinfo::Report);
+require Exporter;
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
address@hidden = qw(Exporter Texinfo::Report);
+
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+
+# This allows declaration       use Texinfo::Convert::Converter ':all';
+# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
+# will save memory.
+%EXPORT_TAGS = ( 'all' => [ qw(
+xml_protect_text
+xml_comment
+xml_accent
+xml_accents
+) ] );
+
address@hidden = ( @{ $EXPORT_TAGS{'all'} } );
+
address@hidden = qw(
+);
 
 $VERSION = '0.01';
 
@@ -405,7 +425,7 @@
     } elsif (defined($self->get_conf('SUBDIR'))) {
       $self->{'destination_directory'} = $self->get_conf('SUBDIR');
     } else {
-      $self->{'destination_directory'} = $output_basename;
+      $self->{'destination_directory'} = $document_name;
     }
   } else {
     my $output_dir = $self->get_conf('OUTFILE');