livecheck checking Portfile's homepage

[Kurt Hindenburg]

I've noticed that more a few Portfile's have invalid homepage entries.  
I hacked/copied/pasted portlivecheck.tcl to have livecheck output 
errors.  Is there already a way of doing this or a better way?

Kurt

Index: base/src/port1.0/portlivecheck.tcl
===================================================================
--- base/src/port1.0/portlivecheck.tcl  (revision 121019)
+++ base/src/port1.0/portlivecheck.tcl  (working copy)
@@ -87,6 +87,14 @@
          return -code 1 "No available types were found. Check 
'$types_dir'."
      }

+#kvh
+    if {$has_homepage} {
+        if {[catch {curl fetch {*}$curl_options ${livecheck.url} 
$tempfile} error]} {
+            ui_msg "$subport : checking homepage ${livecheck.url}"
+            ui_error "  $error"
+        }
+    }
+
      # Convert available_types from a list of files (e.g., { freecode.tcl
      # gnu.tcl ... }) into a string in the format "type|type|..." (e.g.,
      # "freecode|gnu|...").