[MacPerl] Mac::Glue on Japanese OS

[KIMURA Takeshi <kim@ga2.so-net.ne.jp>]

Forgot to mention another patch.

I need this, since the resource ID of aeut in Japanese 
dialect is not '0'

(We don't use Japanese dialect, though. And I guess there is no 
such dialect in 0S 9. The dialect was just awkward.)


*** KIM-HD-001:WorkShop:PerlTest:MacGlue:Dialect.pm.org Thu Sep 
14 20:58:56 2000
--- KIM-HD-001:WorkShop:PerlTest:MacGlue:Dialect.pm.new Sun Sep 
24 02:31:30 2000
***************
*** 114,120 ****
    if (!defined($RF) || $RF == 0) {
        croak("No Resource Fork available for $dialect_file");
    }
!   my $aete_handle = Get1Resource("aeut", 0);
    if (!defined($aete_handle) || $aete_handle == 0) {
        croak("Application is not scriptable");
    }
--- 114,120 ----
    if (!defined($RF) || $RF == 0) {
        croak("No Resource Fork available for $dialect_file");
    }
!   my $aete_handle = Get1IndResource("aeut", 1);
    if (!defined($aete_handle) || $aete_handle == 0) {
        croak("Application is not scriptable");
    }


--
Takeshi

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org