Select Code to Download

Select or download this

sub cgiapp_postrun {
    my $self = shift;
...
       $self->session->save_param();
       $self->session->flush();
}

Select or download this

Assertion ((buffer)->sv_flags & 0x00000400) failed: file "sv.c", line 
+1741 at /usr/lib/perl5/5.10.0/i386-linux-thread-multi/Data/Dumper.pm 
+line 190

Select or download this

 $self->session->clear(['bulk_upload']);and $q->param('bulk_upload',''
+);
$self->session->clear('bulk_upload');

Select or download this

 
_SESSION_REMOTE_ADDR' => '10.10.192.63','bulk_file' => bless( \*{'Fh::
+fh000018yy_import.txt'}, 'Fh' ),'_SESSION_CTIME' => 1261427840,'bntsu
+bmit' => 'Upload File','_SESSION_ATIME' => 1261427915,'bulk_upload' =
+> '','authen_loginbutton' => 'Sign In','Agree' => 'Agree','_SESSION_E
+XPIRE_LIST' => {}};;$D[rootvi /var/www/chkdwn/cgi-bin/Sup*/Index.pm

Select or download this

my $q = $self->query();
$upload_file = $q->param('bulk_file');
$q->param('bulk_file','');
$self->session_config(...