[Rt-commit] [svn] r1176 - Text-Quoted

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Thu Jul  1 23:26:55 2004
New Revision: 1176

Modified:
   Text-Quoted/Changes
   Text-Quoted/META.yml
   Text-Quoted/Quoted.pm
Log:

1.8  Thu Jul  1 23:21:14 EDT 2004
        - Fix handling for the case where we we're quoting
	  a false but defined string. From Stephen Quinney.



Modified: Text-Quoted/Changes
==============================================================================
--- Text-Quoted/Changes	(original)
+++ Text-Quoted/Changes	Thu Jul  1 23:26:55 2004
@@ -1,5 +1,9 @@
 Revision history for Perl extension Text::Quoted.
 
+1.8  Thu Jul  1 23:21:14 EDT 2004
+        - Fix handling for the case where we we're quoting
+	  a false but defined string. From Stephen Quinney.
+
 1.7  Wed Jun 16 16:54:57 EDT 2004
 
 	- New maintainer learns to remove his debugging output

Modified: Text-Quoted/META.yml
==============================================================================
--- Text-Quoted/META.yml	(original)
+++ Text-Quoted/META.yml	Thu Jul  1 23:26:55 2004
@@ -1,6 +1,6 @@
 name: Text-Quoted
 module_name: Text::Quoted
-version: 1.6
+version: 1.8
 author: Jesse Vincent <jesse at bestpractical.com>
 license: perl
 distribution_type: module

Modified: Text-Quoted/Quoted.pm
==============================================================================
--- Text-Quoted/Quoted.pm	(original)
+++ Text-Quoted/Quoted.pm	Thu Jul  1 23:26:55 2004
@@ -1,5 +1,5 @@
 package Text::Quoted;
-our $VERSION = "1.7";
+our $VERSION = "1.8";
 use 5.006;
 use strict;
 use warnings;
@@ -174,7 +174,9 @@
 sub defn($) { return $_[0] if (defined $_[0]); return "" }
 
 sub classify {
-    my $text = shift || ""; # If the user passes in a null string, we really want to end up with _something_
+    my $text = shift;
+    $text = "" unless defined $text;
+    # If the user passes in a null string, we really want to end up with _something_
 
     # DETABIFY
     my @rawlines = split /\n/, $text;
@@ -232,7 +234,7 @@
                 push @paras, $line;
                 $first     = 0;
 		# We get warnings from undefined raw and text values if we don't supply alternates
-                $firstfrom = length( $line->{raw} ||0 ) - length( $line->{text} || 0);
+                $firstfrom = length( $line->{raw} ||'' ) - length( $line->{text} || '');
             }
             else {
                 my $extraspace =