--- intltool-update.old	Sat Feb 23 13:43:20 2002
+++ intltool-update	Sat Feb 23 13:44:07 2002
@@ -410,12 +410,14 @@
 			"--keyword\=U\_",
 	   		"--files-from\=\.\/POTFILES\.in");
 
-    # FIXME: Convert to use system () and perl functions like move ()
-
-    my $gettext_test   ="test \! -f $MODULE\.po \|\| \( rm -f \.\/$MODULE\.pot "
-                       ."&& mv $MODULE\.po \.\/$MODULE\.pot \)";
-
-    system ($gettext_test);
+    if (-e "$MODULE.po") {
+	system ("rm", "-f", "$MODULE.pot");
+	move ("$MODULE.po", "$MODULE.pot")
+	    || die "$PROGRAM: couldn't move $MODULE.po to $MODULE.pot!";
+    }
+    else {
+        die "$PROGRAM: $MODULE.po doesn't exist!";
+    }
 
     print "Wrote $MODULE.pot\n" if $VERBOSE;
 
