--- messaging/manakai/bin/daf.pl	2006/02/26 06:42:55	1.2
+++ messaging/manakai/bin/daf.pl	2006/03/06 07:32:51	1.4
@@ -121,6 +121,7 @@
 
 my $limpl = $Message::DOM::ImplementationRegistry->get_implementation
                            ({ExpandedURI q<fe:Min> => '3.0',
+                             ExpandedURI q<fe:GenericLS> => '3.0',
                              '+' . ExpandedURI q<DIS:DNLite> => '1.0',
                              '+' . ExpandedURI q<DIS:Core> => '1.0',
                              '+' . ExpandedURI q<Util:PerlCode> => '1.0',
@@ -209,7 +210,6 @@
     unless (defined $ModuleSourceDISDocument{$module_uri}) {
       daf_open_source_dis_document ($module_uri);
     }
-    daf_convert_dis_document_to_dnl_document ();
   }
   return daf_get_referring_module_uri_list ($module_uri);
 },
@@ -310,6 +310,9 @@
     my $pl = daf_generate_perl_test_file ($mod);
     status_msg qq<done>;
 
+    my $cfg = $pl->owner_document->dom_config;
+    $cfg->set_parameter (ExpandedURI q<pc:preserve-line-break> => 1);
+
     my $output;
     defined $out_file_path
         ? (open $output, '>', $out_file_path or die "$0: $out_file_path: $!")
@@ -636,7 +639,7 @@
         my $block = $pack->append_new_pc_block;
         my @test;
         
-        $tdt_parser ||= $impl->create_gls_parser
+        $tdt_parser ||= $limpl->create_gls_parser
                                  ({
                                    ExpandedURI q<DIS:TDT> => '1.0',
                                   });