From 199bda46e421682e76a09115fbb5770b29080b78 Mon Sep 17 00:00:00 2001
From: Jonathan Blake <jonathan.blake@projectaon.org>
Date: Mon, 12 Aug 2019 19:34:45 -0700
Subject: [PATCH] Read from both STDIN and named files

---
 common/scripts/split-sections.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/common/scripts/split-sections.pl b/common/scripts/split-sections.pl
index 59ceef4..f16d2a8 100755
--- 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+)$/) {
-- 
2.17.1