AtEnd patch patch

[Gary Oberbrunner]

Sorry, my AtEnd had a little bug.  If you had more than one AtEnd, it would
run some of them twice.  Here's a new version of AtEnd, just replace the old
one with it.

sub AtEnd {
    my($script) = $priv::self->{script}; # this has the pkgvars
    push (@{$script->{at_end_commands}}, @_);
    push (@::scripts_with_at_end_commands, $script)
        unless grep $script->path,
          map {$_->path} @::scripts_with_at_end_commands;
}

. . . . . . . . . . . . . . . . . . . . . . . . .
Gary Oberbrunner                address@hidden
GenArts, Inc.                   Tel: 617-492-2888
8 Clinton Street                Fax: 617-492-2852
Cambridge, MA 02139 USA         http://web.genarts.com