Skip Menu |

This queue is for tickets about the Text-Original CPAN distribution.

Report information
The Basics
Id: 6769
Status: resolved
Priority: 0/
Queue: Text-Original

People
Owner: Nobody in particular
Requestors: perl [...] walker.wattle.id.au
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 1.2
Fixed in: (no value)



Subject: Improvement to first sentence matching
Text-Original-1.2 The first sentence is matched from the first paragraph with a regexp of: $text =~ s/([.?!]).*/$1/s; I would suggest that it may be better to look for a space following the terminating character: $text =~ s/([.?!]) .*/$1/s; I came across this when the first sentence read "In file.txt editÂ…" and only got "In file." as the first sentence. Thanks Matthew
This has been applied, thanks. Simon