--- messaging/manakai/bin/daf.pl	2006/05/19 11:02:11	1.14
+++ messaging/manakai/bin/daf.pl	2006/08/15 10:59:24	1.16
@@ -12,10 +12,11 @@
   Util => q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/>,
 };
 
+our$VERSION=do{my @r=(q$Revision: 1.16 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
 use Cwd;
 use Getopt::Long;
 use Pod::Usage;
-my %Opt = (create_module => []);
+our %Opt = (create_module => []);
 my @target_modules;
 GetOptions (
   'create-dtd-modules=s' => sub {
@@ -49,6 +50,7 @@
     my $i = [split /\s+/, shift, 2];
     push @target_modules, [$i->[0], $i->[1]];
   },
+  'mod-file-suffix=s' => \$Opt{mod_suffix},
   'search-path|I=s' => sub {
     shift;
     my @value = split /\s+/, shift;
@@ -96,6 +98,7 @@
 $Opt{daem_suffix} = '.dafm' unless defined $Opt{daem_suffix};
 $Opt{dafx_suffix} = '.dafx' unless defined $Opt{dafx_suffix};
 $Opt{dafs_suffix} = '.dafs' unless defined $Opt{dafs_suffix};
+$Opt{mod_suffix} = '.mod' unless defined $Opt{mod_suffix};
 $Message::DOM::DOMFeature::DEBUG = 1 if $Opt{debug};
 require Error;
 $Error::Debug = 1 if $Opt{debug};
@@ -259,7 +262,7 @@
     status_msg_ " " if ($ResourceCount % (10 * 10)) == 0;
     status_msg '' if ($ResourceCount % (10 * 50)) == 0;
   }
-});
+}, implementation => $impl);
 status_msg '';
 status_msg "done";