Index: trunk/server/common/oursrc/execsys/upd-execsys
===================================================================
--- trunk/server/common/oursrc/execsys/upd-execsys	(revision 1337)
+++ trunk/server/common/oursrc/execsys/upd-execsys	(revision 1358)
@@ -99,6 +99,6 @@
 
 open(CAT, "./static-cat.c.pre");
-$file = <CAT>;
-($fstart, $fend) = ($file =~ /$regexp/s);
+my $file = <CAT>;
+my ($fstart, $fend) = ($file =~ /$regexp/s);
 close(CAT);