This is my first time trying Mac::Glue. I could not run 'gluedialect' and 'gluescriptadds' as expected since we have different filenames and foldername on Japanese MacOS. I have made an alias 'Dialtecs' for the scripting addition dialetcts folder and applied a patch like the following. The patch is for bypassing Mac::AETE::Format::Glue::fixname. Would it cause any trouble? *** KIM-HD-001:WorkShop:PerlTest:MacGlue:gluedialect Sun Sep 24 02:50:59 2000 --- KIM-HD-001:WorkShop:PerlTest:MacGlue:gluedialect.pl Sun Sep 24 02:44:35 2000 *************** *** 51,57 **** && next unless is_dialect($dlct); $file =~ s/\s+Dialect$//; ! $fixed = Mac::AETE::Format::Glue::fixname($file); $output = "$ENV{MACGLUEDIR}dialects:" . $fixed; $aeut = Mac::AETE::Dialect->new( -e catfile($cwd, $dlct) ? catfile($cwd, $dlct) : $dlct); --- 51,58 ---- && next unless is_dialect($dlct); $file =~ s/\s+Dialect$//; ! # $fixed = Mac::AETE::Format::Glue::fixname($file); ! $fixed = $file; $output = "$ENV{MACGLUEDIR}dialects:" . $fixed; $aeut = Mac::AETE::Dialect->new( -e catfile($cwd, $dlct) ? catfile($cwd, $dlct) : $dlct); *** KIM-HD-001:WorkShop:PerlTest:MacGlue:gluescriptadds Sun Sep 24 02:51:13 2000 --- KIM-HD-001:WorkShop:PerlTest:MacGlue:gluescriptadds.pl Sun Sep 24 02:44:34 2000 *************** *** 46,52 **** print("$file does not appear to be an OSAX (Skipping)\n") && next unless is_osax($osax); ! $fixed = Mac::AETE::Format::Glue::fixname($file); $output = "$ENV{MACGLUEDIR}additions:" . $fixed; $aete = Mac::AETE::App->new( $osax ); --- 46,53 ---- print("$file does not appear to be an OSAX (Skipping)\n") && next unless is_osax($osax); ! # $fixed = Mac::AETE::Format::Glue::fixname($file); ! $fixed = $file; $output = "$ENV{MACGLUEDIR}additions:" . $fixed; $aete = Mac::AETE::App->new( $osax ); -- Takeshi # ===== Want to unsubscribe from this list? # ===== Send mail with body "unsubscribe" to macperl-request@macperl.org