/[suikacvs]/messaging/manakai/bin/daf.pl
Suika

Diff of /messaging/manakai/bin/daf.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by wakaba, Sat Mar 18 05:57:48 2006 UTC revision 1.9 by wakaba, Sat Apr 1 14:41:29 2006 UTC
# Line 293  for (@{$Opt{create_module}}) { Line 293  for (@{$Opt{create_module}}) {
293    
294    if ($out_type eq 'perl-pm') {    if ($out_type eq 'perl-pm') {
295      status_msg_ qq<Generating Perl module from <$mod_uri> for <$mod_for>...>;      status_msg_ qq<Generating Perl module from <$mod_uri> for <$mod_for>...>;
296        local $Message::Util::DIS::Perl::Implementation
297            = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
298      my $pl = $mod->pl_generate_perl_module_file;      my $pl = $mod->pl_generate_perl_module_file;
299      status_msg qq<done>;      status_msg qq<done>;
300    
# Line 587  sub daf_check_undefined () { Line 589  sub daf_check_undefined () {
589  sub daf_generate_perl_test_file ($) {  sub daf_generate_perl_test_file ($) {
590    my $mod = shift;    my $mod = shift;
591    my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');    my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
592      local $Message::Util::DIS::Perl::Implementation = $pc;
593    my $pl = $pc->create_perl_file;    my $pl = $pc->create_perl_file;
594    my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);    my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);
595    $pack->add_use_perl_module_name ("Message::Util::DIS::Test");    $pack->add_use_perl_module_name ("Message::Util::DIS::Test");
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24