[livejournal] r17951: LJSUP-7643: change confess with cluck.

U   trunk/cgi-bin/LJ/Text.pm

Modified: trunk/cgi-bin/LJ/Text.pm
===================================================================
--- trunk/cgi-bin/LJ/Text.pm	2010-12-17 04:22:05 UTC (rev 17950)
+++ trunk/cgi-bin/LJ/Text.pm	2010-12-17 04:33:09 UTC (rev 17951)
@@ -45,6 +45,7 @@
 use Carp qw(confess cluck);
 use UNIVERSAL qw(isa);
 use strict;
+use Data::Dumper;
 
 # given a string, returns its length in bytes (that is, actual octets needed to
 # represent all characters in that string)
@@ -135,7 +136,7 @@
     my $bytes = delete $opts{'bytes'};
     my $chars = delete $opts{'chars'};
 
-    confess "unknown options: " . Data::Dumper(\%opts)
+    cluck "unknown options: " . Dumper(\%opts)
         if %opts;
 
     cluck "not actually truncating"
@@ -177,7 +178,7 @@
     my $chars = delete $opts{'chars'};
     my $ellipsis = delete $opts{'ellipsis'} || Encode::encode_utf8("\x{2026}");
 
-    confess "unknown options: " . Data::Dumper(\%opts)
+    cluck "unknown options: " . Dumper(\%opts)
         if %opts;
 
     cluck "not actually truncating"
@@ -222,7 +223,7 @@
     my $fill_empty = delete $opts{'fill_empty'} ? 1 : 0;
     my $punct_space = delete $opts{'punct_space'} ? 1 : 0;
 
-    confess "unknown options: " . Data::Dumper(\%opts)
+    cluck "unknown options: " . Dumper(\%opts)
         if %opts;
 
     cluck "not actually truncating"