[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Mac::Glue on Japanese OS



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