Re: Do what I mean!

[Matthew Robinson]

I have now implemented the changes to the constant pragma module so that
all scripts run in constant time (in fact they run instantaneously).

Therefore, 

        use constant time;
        print time;
        sleep 10;
        print time;

prints the following

        983287506
        983287506

And here is the diff file for constant.pm

165a166,173
> 
>     if ($name == time) {
>         no strict 'refs';
>         my $pkg = caller;
>         *{"${pkg}::time"} = sub () { $name };
>         return;
>     }
> 
183d190
< 


Matt