[Bps-public-commit] r9201 - Text-Quoted

[ruz at bestpractical.com]

Author: ruz
Date: Wed Oct  3 07:02:28 2007
New Revision: 9201

Modified:
   Text-Quoted/   (props changed)
   Text-Quoted/Quoted.pm

Log:
 r18257 at cubic-pc:  cubic | 2007-10-03 13:50:52 +0400
 * as the text is detabbed then we can drop \t from the regexps


Modified: Text-Quoted/Quoted.pm
==============================================================================
--- Text-Quoted/Quoted.pm	(original)
+++ Text-Quoted/Quoted.pm	Wed Oct  3 07:02:28 2007
@@ -176,13 +176,13 @@
 
     foreach (splice @lines) {
         my %line = ( raw => $_ );
-        s/\A([ \t]*)($quoter?)([ \t]*)//;
+        s/\A( *)($quoter?)( *)//;
         $line{presig} = $line{prespace} = defn $1;
         $line{presig} .= $line{quoter}     = defn $2;
         $line{presig} .= $line{quotespace} = defn $3;
         $line{hang} = defn( Hang->new($_) );
 
-        s/([ \t]*)(.*?)(\s*)$//;
+        s/( *)(.*?)(\s*)$//;
         $line{hangspace} = defn $1;
         $line{text}      = defn $2;
         $line{empty}     = $line{hang}->empty() && $2 !~ /\S/;