blob: f9c5df53e69b6744a00886bc86dc537c1cb4e769 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
--- lib/uri.tcl.orig Mon Jul 26 20:23:34 2004
+++ lib/uri.tcl Wed May 25 00:05:06 2005
@@ -174,8 +174,8 @@
global mimeHdr mime
set fileName $mimeHdr($part,file)
File_Delete [Env_Tmp]/exmh.[pid].html
- if [catch {file link -hard $fileName [Env_Tmp]/exmh.[pid].html}] {
- file copy $fileName [Env_Tmp]/exmh.[pid].html
+ if [catch {exec ln $fileName [Env_Tmp]/exmh.[pid].html}] {
+ exec cp $fileName [Env_Tmp]/exmh.[pid].html
}
set fileName [Env_Tmp]/exmh.[pid].html
Exmh_Status "HTML Load $fileName"
|
