Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (7 sloc) 152 Bytes
#!/usr/bin/perl
=head1 NAME
osadecomp - decompile a compiled AppleScript
=cut
use Mac::OSA::Simple;
$s = load_osa_script(shift);
print $s->source;