--- loncom/localize/localize/synch.pl	2003/09/26 15:23:24	1.2
+++ loncom/localize/localize/synch.pl	2003/09/26 18:22:59	1.3
@@ -1,3 +1,5 @@
+
+
 sub readlexicon {
     my $fn=shift;
     open(IN,$fn);
@@ -18,10 +20,10 @@ foreach (<*.pm>) {
     print "Reading: ".$_."\n";
     %master=(%master,&readlexicon($_));
 }
-foreach (<*.pm>) {
-    print "Synching: ".$_."\n";
+foreach $fn (<*.pm>) {
+    print "Synching: ".$fn."\n";
     my %lang=&readlexicon($_);
-    copy ($fn,$fn.'.original');
+     system ("cp $fn $fn.original");
     open(IN,$fn.'.original');
     open(OUT,'>'.$fn);
     my $found=0;