Read from both STDIN and named files

[project-aon.git] / common / scripts / split-sections.pl

diff --git a/common/scripts/split-sections.pl b/common/scripts/split-sections.pl
index 59ceef4..f16d2a8 100755 (executable)
--- a/common/scripts/split-sections.pl
+++ b/common/scripts/split-sections.pl
@@ -1,4 +1,4 @@
-#!/bin/env perl
+#!/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+)$/) {