diff options
| -rw-r--r-- | challenge-108/adam-russell/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-108/adam-russell/perl/ch-1.pl b/challenge-108/adam-russell/perl/ch-1.pl index 845cf74c19..ccf434f002 100644 --- a/challenge-108/adam-russell/perl/ch-1.pl +++ b/challenge-108/adam-russell/perl/ch-1.pl @@ -14,11 +14,11 @@ my $stderr = capture_stderr { $stderr =~ m/at\s(0x.*\n).*/; $address = $1; chomp($address); -print $address . "\n"; +print "Address of constant A: $address\n"; $stderr = capture_stderr { Dump($a) }; $stderr =~ m/at\s(0x.*\n).*/; $address = $1; chomp($address); -print $address . "\n"; +print "Address of \$a: $address\n"; |