X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Fsplit-sections.pl;h=f16d2a87d9ad1f13f0ed720df0c423f60fd23edc;hp=d711b761c6002eea2eb20115288dbb48124b0011;hb=199bda46e421682e76a09115fbb5770b29080b78;hpb=1398bb561f242ffed58c2925eb5736e758575fa2

diff --git a/common/scripts/split-sections.pl b/common/scripts/split-sections.pl
index d711b76..f16d2a8 100755
--- a/common/scripts/split-sections.pl
+++ b/common/scripts/split-sections.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 use strict;
 use autodie;
@@ -13,7 +13,7 @@ my $line = "";
 my $section = "";
 my $filename = "";
 
-while ($line = <STDIN>) {
+while ($line = <>) {
     chomp ($line);
     print STDERR "DEBUG: Reading '$line'\n" if $debug;
     if ($line =~ /^(\d+)$/) {