Tugger the SLUGger!SLUG Mailing List Archives

Re: [SLUG] gzip from perl script


Jacinta Richardson wrote:

> Voytek wrote:
> > <quote who="Jacinta Richardson">
> > 
> >  unless( unlink("$backuppath/$database-$oldyear$oldmonth$oldday.sql.gz");
> 
> Ah.  Remove the trailing ;  and replace with a ) {

Oh, cool, a Perl person.

One thing thats been bugging me for a while about Perl is the
lack of a butfirst keyword. This would be *really* useful for
constructs like:

    {
       # Huge chunk of code
    }
    butfirst
    {
       # Second huge chunk of code to be executed
       # before the one above.
    } ;

Sincerely,
Erik
-- 
+-----------------------------------------------------------+
  Erik de Castro Lopo
+-----------------------------------------------------------+
"Incompetence, like misery, seeks company." -- Erik Naggum