Re: Problem with "last" label

[Andreas Rieke]

Good morning Gerald, we use perl 5.16.3 on our production machines and try 5.18.1 in the development area - we expect that the development of perl 5.16 will stop sometime this year, and for that reason, we are already trying the new version. I hope that the file which I have attached to this email will help - it is the shortest from the 5 candidates and hopefully the most simple one. I did not change anything within this file - according to the apache log file the error happens in line 80. This is the complete error log: error.13-12.log:[Tue Dec 29 15:48:02 2013] [error] [16539]ERR:  24:  Error in Perl code: Label not found for "last l9" at /opt/apache/htdocs/management/admin/user2accessgroup.epl line 80. Please let me know if I can do anything to assist finding the error; I work with apache, perl, mod_perl and embperl for certainly 8 years not, but I am not an embperl insider, Best regards, Andreas Am 31.12.2013 17:01, schrieb Gerald Richter - ECOS: Hi Andreas,   this looks like an Embperl problem, but I didn’t seen it before (I am still using Perl 5.16 not Perl 5.18).   Do you have a short test file that you can send me, so I can reproduce the error here?   Gerald     Von: Andreas Rieke [mailto:andreas.ri...@isl.de] Gesendet: Sonntag, 29. Dezember 2013 17:24 An: embperl@perl.apache.org Betreff: Problem with "last" label   Hi, we have a strange problem with labels which only occurs when compiling embperl with perl 5.18.1; with perl 5.16.3, everything works well. Unfortunately, the problem seems to happen with a certain probability; sometimes, things work well, but sometime else, we get the following message in the apache logs and an internal server error in the browser: Error in Perl code: Label not found for "last l9" at /opt/apache/htdocs/management/admin/user2accessgroup.epl line 80. We are working with CentOS 5.10 on 32 and 64 bit machines. We use apache 2.2.25 with mod_perl 2.0.8 and embperl 2.5.0_4. The error happens only with 5 of the (certainly) 100 epl files we are working with; I just checked the shortest file by hand, there are no syntax errors in it. When looking for the file and the line from the logs, there is nothing strange at that position; the 5 files do not even contain a "last" statement. Is this an embperl issue? If not, is it a mod_perl problem? Did anybody else see a similar problem? What can I do to get more information about it or to solve the problem? Best regards, Andreas Rieke -- Dr. Ing. Andreas Rieke - Geschäftsführender Gesellschafter -    ISL Internet Sicherheitslösungen GmbH    Bergstrasse 128    D-58095 Hagen    Tel.: +49 (0) 2331/34956-0    Fax.: +49 (0) 2331/34956-29    E-Mail: andreas.ri...@isl.de    Website: www.isl.de    Website: www.arp-guard.com Geschäftsführer: Dr.-Ing. Andreas Rieke | Sitz: Hagen HRB 3816 | Amtsgericht Hagen | UStID-Nr. DE 201547313   -- Dr. Ing. Andreas Rieke - Geschäftsführender Gesellschafter -    ISL Internet Sicherheitslösungen GmbH    Bergstrasse 128    D-58095 Hagen    Tel.: +49 (0) 2331/34956-0    Fax.: +49 (0) 2331/34956-29    E-Mail: andreas.ri...@isl.de    Website: www.isl.de    Website: www.arp-guard.com Geschäftsführer: Dr.-Ing. Andreas Rieke | Sitz: Hagen HRB 3816 | Amtsgericht Hagen | UStID-Nr. DE 201547313

[*



$escmode=0;  
$tabmode=18; $maxrow=10000; 

use AG::user::html;
use AG::user::authen;


#use strict 'vars';
my (%data,$supervisor);

$data{location_id_not_required}=1;


AG::user::html::begin(\%data,\%fdat,$req_rec);




unless($AG::user::authen::SUPERVISOR  && $fdat{id} && $AG::child::PARAM{isl}){
  AG::error::make(420);
}

#check $fdat{id}
$data{file}="accessgroup";
$data{title_data}=AG::db::select_cell("username","\"user\"","id=$fdat{id}");
unless($data{title_data}){
  AG::error::make(404);
}else{
 $data{title_data}=" : ".$data{title_data};


}

#$data{username}=$username;
if($fdat{add} && $fdat{out}){
   @arr=split /\s/,$fdat{out};
   foreach(@arr){
     AG::db::insert_with_check("user2accessgroup","user_id=$fdat{id} AND 
accessgroup_id=$_",("user_id"=>$fdat{id},"accessgroup_id"=>$_));
   }
}elsif($fdat{del} && $fdat{in}){
   $fdat{in}=~ s|\s|\,|g;
     AG::db::delete("user2accessgroup","user_id=$fdat{id} AND accessgroup_id in 
($fdat{in}) ");
}

$data{table}=AG::db::select("id,name","accessgroup LEFT JOIN user2accessgroup 
on accessgroup_id=id AND user_id=$fdat{id}","user_id IS NULL");
$data{table1}=AG::db::select("id,name","accessgroup INNER JOIN user2accessgroup 
on accessgroup_id=id AND user_id=$fdat{id}");


$table=$data{table};
$table1=$data{table1};


#$data{buttons}{go}="go";
$data{hiddens}{id}=$fdat{id};

#$data{direct_submenu}=" ";
#$data{no_submenu}=1;
#$data{no_std_icons}=1;


 Execute ( { inputfile => $req_rec->document_root()."/../html/main.epl",  param 
=> [\%data,"empty.html","begin"] } );
*]

<center>
 
  </br>
  <table border=0  "fffffc">
    <tr><td colspan=2><hr></td></tr>
    <tr><td colspan=2>&nbsp;</td></tr>
    <tr><td colspan=2 align=center>
        <table>
        <tr>
<td align=center>
[+ $data{content_language}{th_accessgroup_out} +]<br><br>
<select name=out MULTIPLE size=10>
<option value=[+ $$table[$row][0] +]>[+ $$table[$row][1] +]</option>
</select>
<br><br>
<input [+ $$data{ro} +]  type=submit name=add 
value="&nbsp;&nbsp;&nbsp;&gt;&gt;&nbsp;&nbsp;&nbsp;">
</td>
<td width=20>&nbsp;</td>
<td align=center>
[+ $data{content_language}{th_accessgroup_in} +]<br><br>
<select name=in MULTIPLE size=10>
<option value=[+ $$table1[$row][0] +]>[+ $$table1[$row][1] +]</option>
</select>
<br><br>
<input [+ $$data{ro} +]  type=submit name=del 
value="&nbsp;&nbsp;&nbsp;&lt;&lt;&nbsp;&nbsp;&nbsp;">

</td>
        </tr>
        </table>
        </td></tr>
  </table>
</center>
[*  Execute ( { inputfile => $req_rec->document_root()."/../html/main.epl",  
param => [\%data,"empty.html","end"] } );  *]


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-h...@perl.apache.org