From 7e20c1795df7769b2455d37527d5469999ff79cb Mon Sep 17 00:00:00 2001 From: root Date: Mon, 9 Jan 2006 01:06:55 +0000 Subject: [PATCH] *** empty log message *** --- src/perl/selection | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/perl/selection b/src/perl/selection index b0c1faf2..07f49395 100644 --- a/src/perl/selection +++ b/src/perl/selection @@ -18,10 +18,10 @@ my @mark_patterns = ( )}x, # common "parentheses" - qr{(?:^|\s) ‘ ([^‘’]+?) ’ (?:\s|$)}x, - qr{(?:^|\s) ` ([^`']+?) ' (?:\s|$)}x, - qr{ \{ ([^{}]+?) \} }x, - qr{ \[ ([^{}]+?) \] }x, + qr{(?:^|\s) ‘ ([^‘’]+?) ’ (?:\s|\)|$)}x, + qr{(?:^|\s) ` ([^`']+?) ' (?:\s|\)|$)}x, + qr{ \{ ([^{}]+?) \} }x, + qr{ \[ ([^{}]+?) \] }x, # shell-like argument quoting, basically always matches qr{\G [\ \t|&;<>()] *( -- 2.34.1