Skip Menu |

This queue is for tickets about the Smart-Comments CPAN distribution.

Report information
The Basics
Id: 58515
Status: open
Priority: 0/
Queue: Smart-Comments
People
Owner: Nobody in particular
Requestors: schemelab [...] gmail.com
Cc:
AdminCc:
Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Fri Jun 18 11:16:14 2010 metaperl [...] gmail.com - Ticket created
Subject: expressions with references do not print value
Attempting to echo-print a reference slot: ### $self->{slot} only prints "$self->{slot}" verbatim instead of printing the value.
  Sun Nov 28 05:09:47 2010 jean [...] veronis.fr - Correspondence added
From: jean [...] veronis.fr
Note that it works if you add a label, as in: ### Expected: $self->{slot} A patch seems to be replacing line 135 134: # Dump an unlabelled expression 135: {Smart::Comments::_Dump(pref=>q{$1:},var=>Smart::Comments::_quiet_eval(q{[$1]}));$DBX}gmx; with the following one : 135: {Smart::Comments::_Dump(pref=>q{$1:},var=>[$1]);$DBX}gmx; which I copied from : 126: # Dump a labelled expression... 127: s{ ^ $hws* $intro [ \t]+ (.+ :) (.+) } 128: {Smart::Comments::_Dump(pref=>q{$1},var=>[$2]);$DBX}gmx; It does pass all the tests. However, I am not sure that it has no weird side effect: the author might have had a reason to call _quiet_eval when the expression is not labelled.
  Sun Nov 28 05:09:48 2010 The RT System itself - Status changed from 'new' to 'open'