---  dmd-0.11pre/d/dmd-script	2005-04-12 13:01:46.000000000 +0200
+++  dmd-0.11pre/d/dmd-script	2005-04-12 19:20:21.700534536 +0200
@@ -157,12 +157,16 @@
     }
 }
 
+my $ok = 1;
+
 if (! scalar(@sources) && ! ($link && scalar(@objects))) {
-    errorExit "no input files";
+	my @cmd = ('gdc', @out);
+	my $result = system(@cmd);
+	errorExit if $result & 0xff; # Give up if can't exec or gdc exited with a signal
+	$ok = $ok && $result == 0;
+	exit ($ok ? 0 : 1);	
 }
 
-my $ok = 1;
-
 foreach my $srcf_i (@sources) {
     # Step 1: Determine the object file path
     my $outf;