From 9509a94c5b31450ff56f67773ef2df544cecc350 Mon Sep 17 00:00:00 2001
From: keni <keni>
Date: Thu, 29 Oct 2009 00:24:05 +0000
Subject: [PATCH] Mac recover bits add headers, typo fix

---
 win/macosx/NetHackRecover.applescript | 7 +++++++
 win/macosx/recover.pl                 | 7 +++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/win/macosx/NetHackRecover.applescript b/win/macosx/NetHackRecover.applescript
index a58b6aea4..250b92ed7 100644
--- 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 a7c2ed6c2..c573c27a2 100755
--- 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";