From d462fee7df1c849a34d066fe14d86bd8c3384ee7 Mon Sep 17 00:00:00 2001
From: Syohei YOSHIDA <syohex@gmail.com>
Date: Tue, 4 Mar 2014 15:51:01 +0900
Subject: [PATCH] Fix for old Perl

`//`(Defined-or operator) was introduced at Perl 5.10.
---
 bin/md2inao.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/md2inao.pl b/bin/md2inao.pl
index 57f1367..371ce32 100755
--- a/bin/md2inao.pl
+++ b/bin/md2inao.pl
@@ -27,7 +27,7 @@
     max_inline_list_length => 55,
 });
 
-print encode($output_encoding // 'utf-8', $p->parse($text));
+print encode(defined($output_encoding) ? $output_encoding : 'utf-8', $p->parse($text));
 
 __END__