Re: [MacPerl-Modules] gluescriptadds problems (again)

[Chris Nandor <pudge@pobox.com>]

At 14.29 -0400 1999.07.09, Muggli, Ricardo T. (CCC) wrote:
>I don't know what went wrong with the last post. Hope this works..
>(Also note some of the paths are not as they would be with the normal
>gluescriptadds script.
>
>
>---------OSAX not scriptable-this is the error seen:# Application
>'10:Desktop Folder:adds:Script Debugger Glue'     is not scriptable
>(App.pm)File 'Dev:Pseudo'; Line 40-at this point in gluescriptadds:
>$aete = Mac::AETE::App->new( $osax );-App.pm will do the following if the
>"OSAX" is not scriptable:croak("Application '$self->{_target}' is not
>scriptable (App.pm)");-?? Is there some way to do this so it will return
>something we can check in the gluescriptsadds script to see if it worked
>okay? This wayit will not error out rather print out a message saying it
>didn't work correctly but continue on it way.---------File name too
>long-this is the error seen:# Can't create file '10:MacPerl
>É:site_perl:Mac:Glue:glues:additions:
>Menu_Events_Scripting_Addition.pod': File name too long.File '10:MacPerl
>É:site_perl:Mac:AETE:Format:Glue.pm'; Line 171-at this point in
>gluescriptadds:    $conv->finish();-MacPerl
>É:site_perl:Mac:AETE:Format:Glue.pm will error a!
>!
>t this point:  sysopen FILE, "$$self{OUTPUT}.pod", O_CREAT|O_WRONLY|O_EXCL
>or die "Can't create file '$$self{OUTPUT}.pod': $!";        -?? Should
>something be put in there to truncate the file name to 27    characters?
>This way there will be room for the .pod extension.        ---------File
>exists-this is the error seen:# MLDBM error: Second level tie failed,
>"File exists"File '10:MacPerl É:site_perl:Mac:AETE:Format:Glue.pm'; Line
>152# Can't tie to '10:MacPerl É:site_perl:Mac:Glue:glues:additions:
>Make_Alias': File exists.File '10:MacPerl
>É:site_perl:Mac:AETE:Format:Glue.pm'; Line 153-as this point in
>gluescriptadds:    $conv->finish();    -MacPerl
>É:site_perl:Mac:AETE:Format:Glue.pm will warn at this point:    if (!tie
>%dbm, 'MLDBM', $self->{OUTPUT}, O_CREAT|O_RDWR|O_EXCL, 0640) {        warn
>"Can't tie to '$self->{OUTPUT}': $!";        return;    }    -?? Is there
>someway to simply overwrite the file?I didn't really have a chance to hack
>up!
>!
> any solutions to these because I'm
>notsure if the suggestions I have for them would be okay.Comments
>please.Thanks,Ricardo Muggli

Ack, it is still all on one line.  Well, two lines.  My head hurts!

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

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