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

[ruz at bestpractical.com]

Author: ruz
Date: Wed Oct  3 07:02:36 2007
New Revision: 9202

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

Log:
 r18258 at cubic-pc:  cubic | 2007-10-03 14:01:51 +0400
 * we don't use $line{presig}


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