Changeset 1885

Timestamp:

11/29/06 12:02:24

Author:

miyagawa

Message:

force stringify id in Plagger::Util::safe_id

Files:

• trunk/plagger/lib/Plagger/Util.pm (modified) (2 diffs)

trunk/plagger/lib/Plagger/Util.pm

@@ -4 +4 @@
-our @EXPORT_OK = qw( strip_html dumbnail decode_content extract_title load_uri mime_type_of filename_for mime_is_enclosure );
-
-use Digest::MD5;
-use Encode ();
-use List::Util qw(min);
@@ -216 +215 @@
-
-sub safe_id {
-shift;
+"$_[0]"; # force stringify
-    $id =~ s/^urn:guid://;
-    $id =~ /^([\w\-]+)$/ ? $1 : Digest::MD5::md5_hex($id);