handle very short source files

diff --git a/util/update_copyrights b/util/update_copyrights
index a18cfdb80f6b946d083f500656851345f597661b..021f218a4a3f53515874dad8ba8fc80a6764ea63 100644 (file)
--- a/util/update_copyrights
+++ b/util/update_copyrights
@@ -15,7 +15,7 @@
 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 # PERFORMANCE OF THIS SOFTWARE.
 
-# $Id: update_copyrights,v 1.50.92.5 2009/06/12 04:07:43 marka Exp $
+# $Id: update_copyrights,v 1.50.92.6 2010/06/27 23:43:22 marka Exp $
 
 require 5.002;
 
@@ -484,7 +484,8 @@ foreach $file (keys %file_types) {
                         $end = "\n";
                 }
 
-                if ($first !~ /$keyword_pat/ && $_ !~ /$keyword_pat/) {
+                if ($first !~ /$keyword_pat/ && 
+                   (!defined($_) || $_ !~ /$keyword_pat/)) {
                        $end = "\n$nonspaceprefix" if ($type eq "MAN");
                         print TARGET "$start\$";
                         print TARGET "Id";
@@ -492,7 +493,7 @@ foreach $file (keys %file_types) {
                 }
 
                 print TARGET $first if $first !~ /^\s*$/;
-                print TARGET $_;
+                print TARGET $_ if (defined($_));
         }
         close(TARGET);
         close(SOURCE);