Changeset 5561

Timestamp:

06/24/09 23:45:49 (3 years ago)

Author:

ryan52

Message:

fix on perl 5.8

Location:

trunk/Locale-Msgfmt

Files:

• Changes (modified) (1 diff)
• lib/Locale/Msgfmt/po.pm (modified) (1 diff)

trunk/Locale-Msgfmt/Changes

@@ -1 +1 @@
 Revision history for Locale-Msgfmt
+
+0.03    Jun 24, 2009
+        fix on perl 5.8
 
 0.02    Jun 24, 2009

trunk/Locale-Msgfmt/lib/Locale/Msgfmt/po.pm

@@ -12 +12 @@
 
 sub cleanup_string {
-  my $_ = shift;
-  s/\\n/\n/g;
-  s/\\r/\r/g;
-  s/\\t/\t/g;
-  s/\\"/"/g;
-  s/\\\\/\\/g;
-  return $_;
+  my $str = shift;
+  $str =~ s/\\n/\n/g;
+  $str =~ s/\\r/\r/g;
+  $str =~ s/\\t/\t/g;
+  $str =~ s/\\"/"/g;
+  $str =~ s/\\\\/\\/g;
+  return $str;
 }