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

[ruz at bestpractical.com]

Author: ruz
Date: Wed Oct  3 07:03:22 2007
New Revision: 9205

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

Log:
 r18261 at cubic-pc:  cubic | 2007-10-03 14:14:06 +0400
 * no need in prespace anymore


Modified: Text-Quoted/Quoted.pm
==============================================================================
--- Text-Quoted/Quoted.pm	(original)
+++ Text-Quoted/Quoted.pm	Wed Oct  3 07:03:22 2007
@@ -176,10 +176,9 @@
 
     foreach (splice @lines) {
         my %line = ( raw => $_ );
-        s/\A( *)($quoter?)( *)//;
-        $line{prespace}   = $1;
-        $line{quoter}     = $2;
-        $line{quotespace} = $3;
+        s/\A *($quoter?)( *)//;
+        $line{quoter}     = $1;
+        $line{quotespace} = $2;
         $line{hang} = Hang->new($_);
 
         s/( *)(.*?)(\s*)$//;