Perhaps a wiser head or three can tell me if the next statement appears to be valid:

Some of the answers to How to force one variable to be an alias to another? (in Q&A QandASection: references) have some problems. Rather than post a reply to a single answer there (and to avoid polluting Q&A if I've missed something), here's what I observed:

Starting with my OS & perl:

Win7 Pro
 perl -v:
 This is perl 5, version 24, subversion 0 (v5.24.0) built for MSWin32-
+x86-multi-thr
 (with 1 registered patch ....)
 Binary build 2400 [300560] provided by ActiveState http://www.ActiveS
+tate.com
 Built Jul 13 2016 14:32:48
[download]

And, my test code:

 use v5.22;
 use warnings;
 # cat answer to "How to force one variable to be an alias to another?
+"
 # indented text led by #: errors prior to commenting out the bare blo
+ck
 
 my $seg = 1;
 say "\$seg: $seg";
 
 =head  
 
 {
 use feature 'refaliasing';
 
 # Silence warnings if desired:
 no warnings 'experimental::refaliasing';
  
 my ($x, $y);
 \$x = \$y;          # alias here
 
 $x = 5;
 say $y;                # prints nothing  -- see msg above
 };
 
 =cut
 
 
 $seg++;
 say "\$seg = $seg";     #2
 
 =head
 
 {
 my $x = 5;
 my $y = 273;
 make_alias( $x, $y );
    # $seg = 2
    # Undefined subroutine &main::make_alias called at D:\_Perl_\pl_te
+st\#1183761.pl line 3
+6.
 
 print $y;               # prints  nothing -- see msg above
 };
 
 =cut
 
 $seg++;
 say "\$seg = $seg";     #3 
 
 {
 use Lexical::Alias;
 
 my $that = "not_that";
 my $this = "another seg";
 alias $that, $this;      # $this is now an alias for $that.
 say $this;               # prints "not_that"
 };
 
 $seg++;
 say "\$seg = $seg";      #4
 
 {
 my @x = qw(foo bar baz);
 my @y = qw(bat bif bim);
 alias @x, @y;
 
 for (@x) {
     say "element of \@x: " . $_;
 }
 for (@y) {
     say "\t element of \@y: " . $_;
 }
 
 };
 
 $seg++;
 say "\$seg = $seg";        #5
 
 =head
 
 {
 use Data::Alias;     # from perldelta for 5.24:
                      # Known Problems
                      # Some modules have been broken by the context s
+tack rework. 
                      # These modules were relying on non-guaranteed i
+mplementation 
                      # details in perl.  <i> (did I miss something?)<
+/i>
             
  
  my( $this, $that );
  
  alias $that, $this;   # $this is now an alias for $that.
 
 };
 
 =cut
 
 
 =head FINAL OUTPUT AFTER commenting failed bareblocks:
 
 $seg: 1
 $seg = 2
 $seg = 3
 not_that
 $seg = 4
 element of @x: foo
 element of @x: bar
 element of @x: baz
          element of @y: foo
          element of @y: bar
          element of @y: baz
 $seg = 5
 
 =cut
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.