For Perl, trust the full name as sent by the debugger

The code as written only works for Perl arrays, and there is no need to apply
more heuristics given the correct value is already in the response.

Author: mbarbon

plugin/python/vdebug/dbgp.py

@@ -666,8 +666,7 @@ def _determine_displayname(self,node):
         if self.is_parent:
             self.display_name = self.code
         else:
-            if self.language == 'php' or \
-                    self.language == 'perl':
+            if self.language == 'php':
                 if self.parent.type == 'array':
                     if node.get('name').isdigit():
                         self.display_name = self.parent.display_name + \
@@ -678,6 +677,8 @@ def _determine_displayname(self,node):
                 else:
                     self.display_name = self.parent.display_name + \
                         "->"+node.get('name')
+            elif self.language == 'perl':
+                self.display_name = node.get('fullname')
             else:
                 name = node.get('name')
                 if name is None: