/[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.7 by wakaba, Fri Mar 17 08:06:20 2006 UTC revision 1.8 by wakaba, Sat Mar 18 05:57:48 2006 UTC
# Line 481  sub daf_get_referring_module_uri_list ($ Line 481  sub daf_get_referring_module_uri_list ($
481  sub dac_search_file_path_stem ($$$) {  sub dac_search_file_path_stem ($$$) {
482    my ($ns, $ln, $suffix) = @_;    my ($ns, $ln, $suffix) = @_;
483    require File::Spec;    require File::Spec;
484    for my $dir ('.', @{$Opt{input_search_path}->{$ns}||[]}) {    for my $dir (@{$Opt{input_search_path}->{$ns}||[]}) {
485      my $name = Cwd::abs_path      my $name = Cwd::abs_path
486          (File::Spec->canonpath          (File::Spec->canonpath
487           (File::Spec->catfile ($dir, $ln)));           (File::Spec->catfile ($dir, $ln)));

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24