Skip to content

Instantly share code, notes, and snippets.

View aklaswad's full-sized avatar

Akira Sawada aklaswad

77 followers · 91 following
View GitHub Profile
@aklaswad
aklaswad / gist:217424
Created October 24, 2009 07:13 — forked from kyanny/gist:215905
#!/usr/bin/env perl
use strict;
use warnings;
use Carp qw( carp );
use Test::Base;
plan tests => 6 * blocks;
sub escape_mt_export {
my ($str) = @_;
$str =~ s/^(-+)$/$1$1$1/gm;