CommandInfo.BlockComments - Resolving aliases (Fixes #487)

Author: James Brundage

Types/CommandInfo/get_BlockComments.ps1

@@ -1,5 +1,24 @@
-if (-not $this.ScriptBlock) {
-    return @()
+<#
+.SYNOPSIS
+    Gets Block Comments
+.DESCRIPTION
+    Gets Block Comments declared within a script.
+#>
+$TargetScriptBlock = $this.ScriptBlock
+if (-not $TargetScriptBlock) {
+    if ($this -is [Management.Automation.AliasInfo]) {
+        $resolveThis = $this
+        while ($resolveThis.ResolvedCommand) {
+            $resolveThis = $resolveThis.ResolvedCommand
+        }
+        if ($resolveThis.ScriptBlock) {
+            $TargetScriptBlock = $resolveThis.ScriptBlock
+        } else {
+            $TargetScriptBlock = ''
+        }
+    } else {
+        $TargetScriptBlock = ''
+    }    
 }
 
 @([Regex]::New("
@@ -8,4 +27,4 @@ if (-not $this.ScriptBlock) {
     (?:.|\s)+?(?=\z|\#>) # anything until the closing tag
 )
 \#\> # the closing tag
-", 'IgnoreCase,IgnorePatternWhitespace', '00:00:01').Matches($this.ScriptBlock)) -as [Text.RegularExpressions.Match[]]
+", 'IgnoreCase,IgnorePatternWhitespace', '00:00:01').Matches($TargetScriptBlock)) -as [Text.RegularExpressions.Match[]]