Fix for old Perl

`//`(Defined-or operator) was introduced at Perl 5.10.
naoya · Mar 4, 2014 · d462fee · d462fee
1 parent 1aa6bc6
commit d462fee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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__