miyagawa

From 6d703dac38b0257eb066564ae06e0e1adb1fa021 Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Sun, 22 Feb 2009 15:40:35 -0800
Subject: [PATCH] Make bool type work with C99 (OS X Leopard)

---
 ToolBox.h |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/ToolBox.h b/ToolBox.h

miyagawa

#!/usr/bin/perl
use strict;
use warnings;
use URI;

my $mms  = shift @ARGV or die "Usage: mms-ssh-proxy-open.pl MMSURL [time]\n";
my $time = shift @ARGV || 3600;

my $uri = URI->new($mms);

miyagawa

#!/bin/sh
URL=$1
osascript -e 'tell Application "Leech"' -e "download URLs \"$URL\"" -e 'end tell'

miyagawa

diff --git a/lib/Remedie/Server.pm b/lib/Remedie/Server.pm
index 4acba67..509c6f4 100644
--- a/lib/Remedie/Server.pm
+++ b/lib/Remedie/Server.pm
@@ -67,7 +67,7 @@ sub build_engine {
     return HTTP::Engine->new(
         interface => {
             module => 'ServerSimple',
-            args   => $self->conf,
+            args   => { %{$self->conf}, net_server => 'Net::Server::PreFork' },

miyagawa

// ==UserScript==
// @name          Use ASCII-only filenames in TypePad
// @namespace     typepad
// @description   You need to go to Compose, click "Display Options" and enable "Filename" to use this script.
// @creator       Tatsuhiko Miyagawa
// @include       http://www.typepad.com/site/blogs/*/post/compose
// ==/UserScript==

window.addEventListener("load", function(e){
    YAHOO.util.Event.removeListener("name","keyup");

miyagawa

diff --git a/lib/Remedie/Server.pm b/lib/Remedie/Server.pm
index 4acba67..ef027fb 100644
--- a/lib/Remedie/Server.pm
+++ b/lib/Remedie/Server.pm
@@ -20,7 +20,6 @@ has 'engine' => (
     isa     => 'HTTP::Engine',
     lazy    => 1,
     builder => 'build_engine',
-    handles => [ qw(run) ],
 );

miyagawa

#!/usr/bin/perl
use strict;
use warnings;
use Web::Scraper;
use Pod::Usage;
use URI::Escape;
use URI;

my $id = shift or pod2usage(0);
my @finders = (\&scrape_github, \&scrape_cpan);

miyagawa

Index: t/02_directories.t
===================================================================
--- t/02_directories.t	(revision 5523)
+++ t/02_directories.t	(working copy)
@@ -74,8 +74,8 @@
 	if ($^O eq 'darwin') {
 		eval 'use Mac::Glue ();';
 		skip "Undelete support requires Mac::Glue", 0 if length $@;
-		eval 'use Mac::Glue::Finder ();';
-		skip "Undelete support requires Mac::Glue::Finder", 0 if length $@;

miyagawa

#!/usr/bin/perl
use strict;
use warnings;
use URI::Escape 'uri_escape';
use LWP::UserAgent;
use JSON 'decode_json';
use Term::ReadLine;
use String::ShellQuote;

my $ua = LWP::UserAgent->new(agent => "Dan the shell");

miyagawa

We couldn’t find that file to show.