Re^2: Preventing Use of uninitialized value.

Unfortunately, // has a different precedence:

if (($line // '') =~ /(\bTest\b\s+.+\s+\baccount\b)?/)
[download]

Easy to verify with B::Deparse:

$ perl -MO=Deparse,-p -e 'if ($line // "" =~ /(\bTest\b\s+.+\s+\baccou
+nt\b)?/) {}'
if (($line // ('' =~ /(\bTest\b\s+.+\s+\baccount\b)?/))) {
    ();
}
-e syntax OK
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^2: Preventing Use of uninitialized value. Select or Download Code

Replies are listed 'Best First'.
Re^3: Preventing Use of uninitialized value. by 1nickt (Canon) on Dec 13, 2018 at 18:27 UTC
Yep! As you were writing that I was composing another reply in which I discovered that fact. Thanks for the correction. The way forward always starts with a minimal test.	[reply]