--- messaging/manakai/bin/daf.pl	2006/02/26 06:42:55	1.2
+++ messaging/manakai/bin/daf.pl	2006/02/26 14:32:38	1.3
@@ -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',
@@ -310,6 +311,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 +640,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',
                                   });