--- messaging/manakai/bin/daf.pl	2006/03/17 08:06:20	1.7
+++ messaging/manakai/bin/daf.pl	2006/04/01 14:41:29	1.9
@@ -293,6 +293,8 @@
 
   if ($out_type eq 'perl-pm') {
     status_msg_ qq<Generating Perl module from <$mod_uri> for <$mod_for>...>;
+    local $Message::Util::DIS::Perl::Implementation
+        = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
     my $pl = $mod->pl_generate_perl_module_file;
     status_msg qq<done>;
 
@@ -481,7 +483,7 @@
 sub dac_search_file_path_stem ($$$) {
   my ($ns, $ln, $suffix) = @_;
   require File::Spec;
-  for my $dir ('.', @{$Opt{input_search_path}->{$ns}||[]}) {
+  for my $dir (@{$Opt{input_search_path}->{$ns}||[]}) {
     my $name = Cwd::abs_path
         (File::Spec->canonpath
          (File::Spec->catfile ($dir, $ln)));
@@ -587,6 +589,7 @@
 sub daf_generate_perl_test_file ($) {
   my $mod = shift;
   my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
+  local $Message::Util::DIS::Perl::Implementation = $pc;
   my $pl = $pc->create_perl_file;
   my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);
   $pack->add_use_perl_module_name ("Message::Util::DIS::Test");