From cb5a802d3e858672fe700574e9b1c02793d85cd1 Mon Sep 17 00:00:00 2001
From: Sitaram Chamarty <ff2@sita-lt.atc.tcs.com>
Date: Tue, 25 Aug 2009 21:47:12 +0530
Subject: [PATCH] DAMN DAMN DAMN those lexical filehandles

    print FH unless ()  # was working fine
but
    print $fh unless () # doesn't

instead of printing $_ to $fh, it prints $fh to STDOUT.  DAMN DAMN DAMN
---
 gl-compile-conf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gl-compile-conf b/gl-compile-conf
index 6568c0f..19cdbb5 100755
--- a/gl-compile-conf
+++ b/gl-compile-conf
@@ -208,7 +208,7 @@ open my $newkeys_fh, ">", $ENV{HOME} . "/.ssh/new_authkeys"
 # save existing authkeys minus the GL-added stuff
 while (<$authkeys_fh>)
 {
-    print $newkeys_fh unless (/^# gitosis-lite start/../^# gitosis-lite end/);
+    print $newkeys_fh $_ unless (/^# gitosis-lite start/../^# gitosis-lite end/);
 }
 
 # add our "start" line, each key on its own line (prefixed by command and