| Subject: | Size limit for signing? |
Distribution: SuSE 9.0
Kernel: 2.6.3 SMP
Perl: 5.8.1
I have a problem that the program froze if I try to sign medium data amount (of 2 MB).
Here is a part of the code (I hope the responsible one):
=======================================================================
sub pgpsign {
my $intext = shift;
my $signuser = shift;
my $signpass = shift;
my ( $errtext, $outtext);
my $gnupg = GnuPG::Interface->new();
print "Begin signing...\n";
$gnupg->options->hash_init( armor => 1, batch => 1 , always_trust => 1, default_key => $signuser);
print "After Initialising.\n";
my ( $pgpin, $pgpout ) = ( IO::Handle->new(), IO::Handle->new() );
my ( $pgperr , $pgppass ) = ( IO::Handle->new(), IO::Handle->new() );
print "After Creating Handles.\n";
my $pgphandles = GnuPG::Handles->new( stdin => $pgpin, stdout => $pgpout, stderr => $pgperr, passphrase => $pgppass );
print "After assigning Handles.\n";
my $pgppid = $gnupg->clearsign( handles => $pgphandles );
print "After clearsign command.\n";
print $pgppass ($signpass);
close $pgppass;
print "After giving password.\n";
print $pgpin $intext;
print "End of intext.\n";
close $pgpin;
print "After giving cleartext.\n";
$outtext .= $_ foreach (<$pgpout>);
my @gpgerr = <$pgperr>;
print "@gpgerr" if @gpgerr;
print "End signing...\n";
close $pgpout;
waitpid $pgppid, 0;
return $outtext;
}
=======================================================================
If I use this procedure, I get the following printout:
=======================================================================
Begin signing...
After Initialising.
After Creating Handles.
After assigning Handles.
After clearsign command.
After giving password.
=======================================================================
And could now wait forever. The process does not need any processor power. Is there a reasonable explanation for that?
Thanks a lot in advance.
Christof