Changeset 29939

Timestamp:

02/12/09 13:13:39 (4 years ago)

Author:

tokuhirom

Message:

f*cking softbank changes some symbols. are you person of leisure?

Files:

• lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/ThirdForce/HTTPHeader.pm (modified) (2 diffs)

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/ThirdForce/HTTPHeader.pm

@@ -14 +14 @@
 
         process 'td:nth-child(2)', 'x-jphone-name',    'TEXT';
-        process 'td:nth-child(3)', 'x-jphone-display', 'TEXT';
+        process 'td:nth-child(3)', 'x-jphone-display', [ 'TEXT', \&_asterisk ];
         process 'td:nth-child(4)', 'x-jphone-color',   'TEXT';
-        process 'td:nth-child(5)', 'x-jphone-sound', [ 'TEXT', \&_undefine, ];
-        process 'td:nth-child(6)', 'x-jphone-smaf',  [ 'TEXT', \&_undefine, ];
+        process 'td:nth-child(5)', 'x-jphone-sound', [ 'TEXT', \&_undefine ];
+        process 'td:nth-child(6)', 'x-jphone-smaf',  [ 'TEXT', \&_undefine ];
 
         # maybe, no person needs x-s-* information.
@@ -26 +26 @@
 );
 
+sub _asterisk { s/ x /*/ }
+
 sub _undefine {
     my $x = shift;
-    $x =~ /^(?:−|-)$/ ? undef : $x;
+    $x =~ /^(?:−|-|\x{d7})$/ ? undef : $x;
 }