Fixed unicode support

protospork · protospork · commit 5240dda66c2f · 2013-07-15T11:30:57.000-04:00
diff --git a/mpc.hc.np.pl b/mpc.hc.np.pl
@@ -35,7 +35,7 @@
     }
     else {  # Report back if it's right
         # Get results into variable
-        my $mpchcnp = $response->content;
+        my $mpchcnp = $response->decoded_content;
         $mpchcnp =~ s{.+<p id="mpchc_np">(.+?)</p>.+}{$1}s; # Extract np text from the html
         # Remove whitespace at beginning and end of string and replace entities
         $mpchcnp =~ s/^\s+|\s+$//g;

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,7 @@`
`35`	`35`	`}`
`36`	`36`	`else { # Report back if it's right`
`37`	`37`	`# Get results into variable`
`38`		`- my $mpchcnp = $response->content;`
	`38`	`+ my $mpchcnp = $response->decoded_content;`
`39`	`39`	`$mpchcnp =~ s{.+<p id="mpchc_np">(.+?)</p>.+}{$1}s; # Extract np text from the html`
`40`	`40`	`# Remove whitespace at beginning and end of string and replace entities`
`41`	`41`	`$mpchcnp =~ s/^\s+\|\s+$//g;`