From 0c6468227446cd3dafbc21032d39a395bf7ffd4d Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Mon, 19 Dec 2011 10:40:18 -0500
Subject: [PATCH] $line was missing.

---
 external-account-totals-reconcile.plx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/external-account-totals-reconcile.plx b/external-account-totals-reconcile.plx
index 73f576f..e563eb1 100755
--- a/external-account-totals-reconcile.plx
+++ b/external-account-totals-reconcile.plx
@@ -53,7 +53,7 @@ my(@accountOptions) = ('--wide-register-format', '%-.150A %22.108t\n',  '-w', '-
 
 my %externalBalances;
 while (my $line = <STDIN>) {
-  next unless
+  next unless $line =~
     /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/;
   my($acct, $value) = ($1, $2);
 
@@ -68,7 +68,7 @@ while (my $line = <ACCT_DATA>) {
   chomp $line;
   $line =~ s/^\s*//;   $line =~ s/\s*$//;
   next unless
-    /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/;
+    $line =~ /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/;
 
   my($acct, $value) = ($1, $2);