mirror of
https://git.freebsd.org/ports.git
synced 2025-06-04 20:36:30 -04:00
13 lines
534 B
Tcl
13 lines
534 B
Tcl
--- 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"
|