# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1253146187 -32376
# Node ID 1ff30d4c58cead4bb12ff8e2c6b6d0574e0883f8
# Parent  580c1b0fa27eee3aa9dd0d7cc19de615d0478748
RCS-revision 1.17
date: 2009/09/17 09:09:23;  author: yuuji;  state: Exp;  lines: +5 -4
$0 is frozen.
Do job on duplicated instance.

diff -r 580c1b0fa27e -r 1ff30d4c58ce after5.rb
--- a/after5.rb	Sun Mar 16 06:24:44 2008 +0859
+++ b/after5.rb	Thu Sep 17 09:09:23 2009 +0859
@@ -1,9 +1,10 @@
 #!/usr/local/bin/ruby
+# -*- coding: euc-jp -*-
 #
 # Associative Scheduling Table - after5
 # (C)2003, 2004, 2006, 2008 by HIROSE Yuuji [yuuji@gentei.org]
-# $Id: after5.rb,v 1.16 2008/03/16 06:24:44 yuuji Exp $
-# Last modified Sun Mar 16 15:22:32 2008 on firestorm
+# $Id: after5.rb,v 1.17 2009/09/17 09:09:23 yuuji Exp $
+# Last modified Thu Sep 17 18:08:23 2009 on spada
 # See http://www.gentei.org/~yuuji/software/after5/
 # このスクリプトはEUCで保存してください。
 
@@ -813,8 +814,8 @@
   # remove files in FILES, and remove parent directory if possible
   def cleanup_files(files)
     sentinel = File.stat(@dir).ino
-    $0.untaint
-    scriptsuid = File.stat($0).uid
+    me = $0.dup.untaint
+    scriptsuid = File.stat(me).uid
     for f in files
       if $SAFE > 0
 	f.untaint