Re: Perl indentation problem?

[Fernando Dobladez]

Pedro Alves wrote:

> Hi. Take a look at the way emacs handles this piece of perl code:
>
> ____________________________
> while (@vars) {
>   ($var, $val) = split("=", shift @vars);
>
> next if $val =~ /^\s*$/; <- ?!?!?!?
>
> $val =~ tr/+/ /;
> $val =~ s/%([0-9A-F][0-9A-F])/&hex2dec($1)/ge;
> }
> ____________________________
>
> IMHO, this is not supposed to happen...
>
> Any clues?



No idea, but seems to work OK for me, in both perl-mode and cperl-mode:

______________________
while (@vars) {
  ($var, $val) = split("=", shift @vars);

  next if $val =~ /^\s*$/;

  $val =~ tr/+/ /;
  $val =~ s/%([0-9A-F][0-9A-F])/&hex2dec($1)/ge;
}
_____________________


That's Emacs 21.1.1


Good luck,

Fernando