explicit implementation of shebang run parameters
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 3 Feb 2011 21:41:58 +0000 (22:41 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 3 Feb 2011 23:11:48 +0000 (00:11 +0100)
git-grep-footer

index dcb24d4e35e36d8f812c856951d2dc4788f09e60..bc71345250a9190b0e9297b4b1e0572dfc6df5a5 100755 (executable)
@@ -1,7 +1,8 @@
-#!/usr/bin/perl -0 -CO
+#!/usr/bin/perl
 use 5.010;
 use strict;
 use warnings;
+use open ':std', OUT => ':utf8';
 use Encode 'decode';
 use Data::Dump 'pp';
 use Getopt::Long;
@@ -14,6 +15,7 @@ GetOptions(\my %opt,
 ) or die;
 
 local $| = 1;
+local $/ = "\0";
 
 my $HEADERMATCH = qr/ [a-z]+ (?: (?:-\w+)+ | \ by ) /ix;