Skip to content

Instantly share code, notes, and snippets.

View a.diff
diff --git a/Rakefile b/Rakefile
index adc9079..60348dd 100644
--- a/Rakefile
+++ b/Rakefile
@@ -1,9 +1,13 @@
ENV['TZ'] = "America/Los_Angeles"
require 'erb'
+require 'fileutils'
desc "build static files"
View a.diff
diff --git a/lib/App/cpanminus/script.pm b/lib/App/cpanminus/script.pm
index ce96a2b..36aaeab 100644
--- a/lib/App/cpanminus/script.pm
+++ b/lib/App/cpanminus/script.pm
@@ -516,7 +516,8 @@ sub version_to_query {
if ($req =~ s/^==\s*//) {
return {
- term => { 'module.version' => $req },
+# term => { 'module.version' => $req },
View gist:11338261
Next release version? [1.7002]:
Could not decode UTF-8 lib/App/cpanminus/fatscript.pm; encoded_content set by FatpackedFiles (Dist::Zilla::Plugin::GatherDir line 165); error was: utf8 "\xCC" does not map to Unicode at /Users/miyagawa/.plenv/versions/5.18.2/lib/perl5/site_perl/5.18.2/darwin-2level/Encode.pm line 175.
at /Users/miyagawa/.plenv/versions/5.18.2/lib/perl5/site_perl/5.18.2/Dist/Zilla/Role/File.pm line 111.
Dist::Zilla::Role::File::_throw(Dist::Zilla::File::OnDisk=HASH(0x7fbf1726ddb8), "decode UTF-8", "utf8 \"\\xCC\" does not map to Unicode at /Users/miyagawa/.plenv"...) called at /Users/miyagawa/.plenv/versions/5.18.2/lib/perl5/site_perl/5.18.2/Dist/Zilla/Role/File.pm line 103
Dist::Zilla::Role::File::catch {...} ("utf8 \"\\xCC\" does not map to Unicode at /Users/miyagawa/.plenv"...) called at /Users/miyagawa/.plenv/versions/5.18.2/lib/perl5/site_perl/5.18.2/Try/Tiny.pm line 104
Try::Tiny::try(CODE(0x7fbf17b61758), Try::Tiny::Catch=REF(0x7fbf122f9460)) called at /Users/mi
View kml2gpx.pl
#!/usr/bin/env perl
# ONO Hiroki onohiroki@cup.com
# http://onohiroki.cycling.jp/comp-google-latitude
# Usage: $ ./latitude_kml2gpx.pl *.kml
use strict;
use warnings;
use Data::Dumper;
use Encode;
use utf8;
@miyagawa
miyagawa / gist:51220a852bdf8155f6f6
Last active Aug 29, 2015
Podcast app User-Agent
View gist:51220a852bdf8155f6f6
2.0.2
"Podcasts/2.0.2"
2.1.0, 2.1.1
"Podcasts/574 CFNetwork/672.1.14 Darwin/14.0.0"
"Podcast/574 CFNetwork/672.1.14 Darwin/14.0.0"
View a.patch
diff --git a/lib/App/CPANGhq.pm b/lib/App/CPANGhq.pm
index bfdd431..0b0c785 100644
--- a/lib/App/CPANGhq.pm
+++ b/lib/App/CPANGhq.pm
@@ -14,28 +14,15 @@ use Module::Metadata;
use version 0.77 ();
use Getopt::Long ();
use Pod::Usage ();
+use MetaCPAN::Client;
View gist:a1b26807377ea6278129
111 "Overcast/1.0 (+http://overcast.fm/;
82 "AppleCoreMedia/1.0.0.11D257 (iPhone;
19 "AppleCoreMedia/1.0.0.11D201 (iPhone;
17 "iTunes/11.3 (Macintosh;
16 "Mozilla/5.0 (Macintosh;
8 "Apache-HttpClient/UNAVAILABLE (java
5 "stagefright/1.2 (Linux;Android
5 "Pocket Casts"
4 "AppleCoreMedia/1.0.0.11D257 (iPad;
@miyagawa
miyagawa / json-utf8.t
Last active Aug 29, 2015
JSON::PP with utf8 in perl 5.8.x
View json-utf8.t
> PLENV_VERSION=5.8.4 perl -I$HOME/dev/cpanminus/fatlib ~/tmp/json-pp-utf8.t
1..3
# perl 5.008004
ok 1 - parse OK {"a": "å"}
ok 2 - parse OK {"a": 1, "b" : "å"}
not ok 3 - parse OK {"a": 0, "b" : "å"}
# Failed test (/Users/miyagawa/tmp/json-pp-utf8.t at line 8)
# , or } expected while parsing object/hash, at character offset 7 (before ", "b" : "\x{c3}\x{a5}...") at /Users/miyagawa/tmp/json-pp-utf8.t line 7
# Looks like you failed 1 tests of 3.