support .PL .pm file

language.go

@@ -24,7 +24,7 @@ type Language struct {
 type Languages []Language
 
 var reShebangEnv *regexp.Regexp = regexp.MustCompile("^#! *(\\S+/env) ([a-zA-Z]+)")
-var reShebangLang *regexp.Regexp = regexp.MustCompile("^#! */[a-zA-Z/]+/([a-zA-Z]+)")
+var reShebangLang *regexp.Regexp = regexp.MustCompile("^#! *[.a-zA-Z/]+/([a-zA-Z]+)")
 
 func (ls Languages) Len() int {
 	return len(ls)
@@ -105,7 +105,9 @@ var Exts map[string]string = map[string]string{
 	"mustache": "mustache",
 	"php":      "php",
 	"pas":      "pas",
+	"PL":       "pl",
 	"pl":       "pl",
+	"pm":       "pl",
 	"plan9sh":  "plan9sh",
 	"text":     "text",
 	"txt":      "text",

language_test.go

@@ -85,3 +85,17 @@ func TestGetShebangPlan9Shell(t *testing.T) {
 		t.Errorf("invalid logic. lang=[%v] shebang=[%v]", lang, s)
 	}
 }
+
+func TestGetShebangStartDot(t *testing.T) {
+	lang := "pl"
+	shebang := "#!./perl -o"
+
+	s, ok := getShebang(shebang)
+	if !ok {
+		t.Errorf("invalid logic. shebang=[%v]", shebang)
+	}
+
+	if lang != s {
+		t.Errorf("invalid logic. lang=[%v] shebang=[%v]", lang, s)
+	}
+}