perl indentation problem

perl indentation problem

[Tsirkin Evgeny]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.2.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-08-29 on astest
configured using `configure  --host=i686-pc-linux-gnu 
--build=i686-pc-linux-gnu --target=i386-redhat-linux-gnu --program-prefix= 
--prefix=/usr --exec-prefix=/usr --bindir=/usr/bin --sbindir=/usr/sbin 
--sysconfdir=/etc --datadir=/usr/share --includedir=/usr/include 
--libdir=/usr/lib --libexecdir=/usr/libexec --localstatedir=/var 
--sharedstatedir=/usr/com --mandir=/usr/share/man --infodir=/usr/share/info 
--with-gcc --with-pop --with-sound'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:
Hi!
here is a problem :
I am editing this this code using perl-mode and cperl-mode:

my $sql=
'SELECT 
s.studentid,tyuta_rashum_old.maslulsignid,selected_semester,tyuta_rashum_old.courseid,coursegroup.semester 
as group_semester,
type,coursegroup.name,coursegroup.id,course.chugid
FROM
(
(select * from schedule_rashum_old
EXCEPT
select * from schedule_rashum)
UNION
(select * from schedule_rashum_old
INTERSECT
select * from schedule_rashum)
 )as s
INNER JOIN 
coursegroup 
on (coursegroup.id=s.groupid)
INNER JOIN tyuta_rashum_old
on (tyuta_rashum_old.courseid=coursegroup.courseid AND 
tyuta_rashum_old.studentid=s.studentid )
INNER JOIN course on (coursegroup.courseid=course.id);';
#   my ($sql,$fatal_msg,$field_name,%params) = @_;
my %deletedgroups=db_select_all_by_field($sql,"can't select deleted groups at 
$0\n",'studentid');
for(my($studentid,$groups)=each %deletedgroups){
  my @deletedGroupsByCourse = sort {$a->{courseid} <=> $b->{courseid}} 
@$groups;
  for(@deletedGroupsByCourse){
    my $courseid=$_->{courseid};
  
  }

}

while trying to make my lines to be idented correctly starting from the
my %deletedgroups=db_select_all_by_field($sql,"can't select deleted groups at 
$0\n",'studentid');
line the indentation does not work .
To reproduce the bug :
copy the code to a buffer,
run M-x perl-mode or M-x cperl-mode,
try to type <TAB> on any line starting from
my %deletedgroups=db_select_all_by_field($sql,"can't select deleted groups at 
$0\n",'studentid');
no identation!(try to delete some spaces and retype TAB to see it)
Thanks.



Recent input:
<down> <tab> <down> <tab> <down> <tab> <down> <tab> 
<down> <tab> <down> <tab> <down> <tab> <up> C-a C-k 
<return> <up> <tab> <tab> <tab> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <up> <down> <down> <down> 
<down> <down> <down> <tab> <backspace> <backspace> 
<tab> <tab> <tab> <home> C-x C-s <up> <up> <up> <up> 
<up> <up> <up> <help-echo> <down-mouse-2> <mouse-2> 
<down-mouse-1> <mouse-1> C-k <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <menu-bar> <help-menu> <re
port-emacs-bug>

Recent messages:
Mark set
Indenting... For feedback load `imenu'... [2 times]
Auto-saving...done
Indenting... For feedback load `imenu'... [5 times]
Mark set
Auto-saving...done
Mark set
Wrote /home/tsurkin/academia_db/rakefet_beta/scripts/returnscript.pl
Mark set
Loading emacsbug...done