Skip Menu |

This queue is for tickets about the CGI-ContactForm CPAN distribution.

Report information
The Basics
Id: 21744
Status: resolved
Priority: 0/
Queue: CGI-ContactForm

People
Owner: GUNNAR [...] cpan.org
Requestors: GUNNAR [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in:
  • 0.1
  • 0.2
  • 0.3
  • 0.4
  • 1.0
  • 1.01
  • 1.02
  • 1.03
  • 1.1
  • 1.10
  • 1.11
  • 1.12
  • 1.13
  • 1.14
  • 1.15
  • 1.16
  • 1.17
  • 1.18
  • 1.20
  • 1.21
  • 1.22
  • 1.30
Fixed in: 1.31



Subject: Infinite loop
A line in the message body that begins with a space, followed by '>', and then followed by a large number of non-space characters makes the while loop that begins at line 583 in version 1.30 of ContactForm.pm enter into an infinite loop (the null string is assigned to $1 in the last regex at line 596).
The expression $line =~ /^(.{$min,})? (.*)/ -------------------------^ has been replaced with $line =~ /^(.{$min,}) (.*)/ i.e. the first capturing parentheses are no longer optional.