[Gllug] Poor scripting?!

[Henrik Morsing]

On Wed, Mar 12, 2008 at 07:59:10AM +0000, Henrik Morsing wrote:
> 
> finddepth(sub { if ($_ eq /cerprod$/) {
>                    $old_name = $_;
>                    eval $regexp;
>                    die $@ if $@;
>                    rename($old_name, $_) unless $old_name eq $_;
>         } elseif ($_ eq /medprod$/) {
>                    $old_name = $_;
>                    eval $regexp;
>                    die $@ if $@;
>                    rename($old_name, $_) unless $old_name eq $_;
>         } },
>         $dir);

Sorry, (/cerprod$/) not ($_ eq /cerprod$/)!  And same for medprod.

Thanks bilarh

Regards
Henrik Morsing

-- 
Gllug mailing list  -  Gllug at gllug.org.uk
http://lists.gllug.org.uk/mailman/listinfo/gllug