Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
perlcritic
  • Loading branch information
davorg committed Sep 17, 2016
1 parent 8194f28 commit 509a6f1
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions bin/new_invoice
Expand Up @@ -10,7 +10,7 @@ use Magnum::Schema;


print 'Which Contract: ';
chomp(my $cont = <STDIN>);
chomp(my $cont = <>);

my $sch = Magnum::Schema->get_schema;

Expand All @@ -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;
Expand Down

0 comments on commit 509a6f1

Please sign in to comment.