cdhowie

#!/usr/bin/perl -w

# Donations may be sent to 1Ni6BojkPJ62HvCrdx4LQRrgvNKg56yq3y
#
# Copyright (C) 2011 by Chris Howie <me@chrishowie.com>
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

cdhowie

do
    -- Don't allow error() to be replaced out from underneath the security checks!
    local real_error = error

    do
        local real_collectgarbage = collectgarbage

        collectgarbage = function(oper)
            if oper == 'collect' or oper == 'count' then
                return real_collectgarbage(oper)