From 509a6f1467ae517206e02dc00fdacf0e7aa3d888 Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@dave.org.uk>
Date: Sat, 17 Sep 2016 10:45:20 +0100
Subject: [PATCH] perlcritic

---
 bin/new_invoice | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/new_invoice b/bin/new_invoice
index dfd24e7..e1fdea1 100755
--- a/bin/new_invoice
+++ b/bin/new_invoice
@@ -10,7 +10,7 @@ use Magnum::Schema;
 
 
 print 'Which Contract: ';
-chomp(my $cont = <STDIN>);
+chomp(my $cont = <>);
 
 my $sch = Magnum::Schema->get_schema;
 
@@ -32,7 +32,7 @@ my $desc_prefix = $contract->product->name . ' '.
                   $contract->site->name;
 
 print 'Which weeks: ';
-chomp(my $weeks = <STDIN>);
+chomp(my $weeks = <>);
 my @weeks = split /[\s,]/, $weeks;
 
 my $i = 1;