[Wellington-pm] When Perlmongers are forced to use VB

[Peter Kelly]

I may follow this up with some use of Regex, but in the interim:

    Sub dumpHashOfHash(ByRef hash As IDictionary)
        Dim k1 As String
        For Each k1 In hash.Keys
            Dim k2 As String
            Dim points As IDictionary
            points = CType(hash(k1), Hashtable)
            For Each k2 In points.Keys
                If points(k2) Is Nothing Then
                    PDebug(k2 & " in " & k1 & " does not exist.")
                Else
                    PDebug("outer key= " & k1 & " inner key=" & k2 & "
value=" & points(k2).ToString)
                End If
            Next
        Next

    End Sub