/[pub]/suikawiki/script/bin/mkplugin2.pl
Suika

Diff of /suikawiki/script/bin/mkplugin2.pl

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

revision 1.19 by wakaba, Sun Jul 25 06:54:28 2004 UTC revision 1.21 by wakaba, Mon Nov 8 09:57:49 2004 UTC
# Line 119  sub literal_or_code ($$) { Line 119  sub literal_or_code ($$) {
119  }  }
120  sub expanded_uri ($$$) {  sub expanded_uri ($$$) {
121    my ($Info, $prefix, $lname) = @_;    my ($Info, $prefix, $lname) = @_;
122    warn "$0: $prefix: Namespace prefix not declared";    warn "$0: $prefix: Namespace prefix not declared"
123        unless $Info->{Namespace}->{$prefix};
124    $Info->{Namespace}->{$prefix} . $lname;    $Info->{Namespace}->{$prefix} . $lname;
125  }  }
126    
# Line 256  sub convert ($$;%) { Line 257  sub convert ($$;%) {
257            CORE::die "Buggy implementation: $t->{_}/@{[$opt{return_type} or 'Main']} not defined")            CORE::die "Buggy implementation: $t->{_}/@{[$opt{return_type} or 'Main']} not defined")
258           ->($self, $source, \%opt)           ->($self, $source, \%opt)
259      if $converter;      if $converter;
260      local $Error::Depth = $Error::Depth + 1;
261    $self->SUPER::convert ($source, %opt);    $self->SUPER::convert ($source, %opt);
262  }  }
263  EOH  EOH
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.21
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24