Mac recover bits

add headers, typo fix

diff --git a/win/macosx/NetHackRecover.applescript b/win/macosx/NetHackRecover.applescript
index a58b6aea41059a61ec012549faff663872bcea28..250b92ed75290d997b7d77371c99e1e7a25c34a1 100644 (file)
--- a/win/macosx/NetHackRecover.applescript
+++ b/win/macosx/NetHackRecover.applescript
@@ -1,3 +1,10 @@
+#!/usr/bin/osascript
+# NetHack 3.5  NetHackRecover.applescript $Date$  $Revision$
+# Copyright (c) Kenneth Lorber, Kensington, Maryland, 2009
+# NetHack may be freely redistributed.  See license for details. 
+
+
+
 set canceled to false
 try
        display dialog "Welcome to the NetHack recover program.  Please make sure NetHack is not running before continuing.  Ready?" with title "NetHackRecover"

diff --git a/win/macosx/recover.pl b/win/macosx/recover.pl
index a7c2ed6c24f5f8372a473a30257152309c1559e3..c573c27a29a70858114fcf8df3b57f0ad0032fbf 100755 (executable)
--- a/win/macosx/recover.pl
+++ b/win/macosx/recover.pl
@@ -1,6 +1,9 @@
 #!/usr/bin/perl
 
-# $Id$
+# NetHack 3.5  recover.pl $Date$  $Revision$
+# Copyright (c) Kenneth Lorber, Kensington, Maryland, 2009
+# NetHack may be freely redistributed.  See license for details.
+
 # Wrapper for 3.4.3 recover to be called from Applescript to reset the Qt
 # package after it locks up due to a bug in suspend handling.
 
@@ -37,7 +40,7 @@ if($try_perm){
 # run recover, but only if there is something that looks promising
 $uid = $<;
 foreach ( <$uid*.0> ){
-       system ("./recover -d . $_);
+       system ("./recover -d . $_");
 }
 
 print "Done.\n";