--- /tmp/Manip.pm	2003-09-09 18:20:31.000000000 -0700
+++ Manip.pm	2003-09-09 19:21:49.000000000 -0700
@@ -32,7 +32,7 @@
                    $^O =~ /VMS/i);
 
 # Determine if we're doing taint checking
-$Date::Manip::NoTaint = eval { local $^W; unlink "$^X$^T"; 1 };
+$Date::Manip::NoTaint = eval { local $^W; eval("#" . substr($^X, 0, 0)); 1 };
 
 ###########################################################################
 # CUSTOMIZATION