Committer: vsukhanov
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"