note
PodMaster
Not exactly :)
<code>
C:\>perl -MO=Concise -e"@f = split ' ', shift"
9 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v ->3
8 <@> split[t5] vK ->9
3 </> pushre(/"\\s+"/ => @f) s*/64 ->4
6 <1> shift sK/1 ->7
5 <1> rv2av[t4] sKRM/1 ->6
4 <#> gv[*ARGV] s ->5
7 <$> const[IV 0] s ->8
-e syntax OK
C:\>perl -MO=Concise -e"@f = split /\s+/, shift"
9 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v ->3
8 <@> split[t5] vK ->9
3 </> pushre(/"\\s+"/ => @f) s/64 ->4
6 <1> shift sK/1 ->7
5 <1> rv2av[t4] sKRM/1 ->6
4 <#> gv[*ARGV] s ->5
7 <$> const[IV 0] s ->8
-e syntax OK
C:\>perl -MO=Concise -e"@f = split ?\s+?, shift"
9 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v ->3
8 <@> split[t5] vK ->9
3 </> pushre(/"\\s+"/ => @f) s/64 ->4
6 <1> shift sK/1 ->7
5 <1> rv2av[t4] sKRM/1 ->6
4 <#> gv[*ARGV] s ->5
7 <$> const[IV 0] s ->8
-e syntax OK
</code>
B::Deparse cautions you that the output might not be what you expect (or that it might be a bug, which you should report), but B::Concise seems to agree that there's no difference (but don't take my word for it, it might just be a similar bug).
<div class="pmsig"><div class="pmsig-107642">
<div class="pmsig"><div class="pmsig-107642"><p><table border=0 cellpadding=1 cellspacing=0 width="100%"><tr><td colspan=2 bgcolor="#FFF0FF"><small><font color="black"><a href="http://perlmonks.org/index.pl?node=MJD"><b><font color="#0F0FAA">MJD</font></b></a> <a href="http://www.perl.org/yapc/2002/movies/themovie/"><b><font color="#0F0FAA">says</font></b></a> "you <i>can't just make shit up and expect the computer to know what you mean, retardo</i><B>!</B>"</font></small></td></tr><tr><td colspan=2 bgcolor="#FFE0FF"><small><font color="black">I run a Win32 PPM <a href="http://perlmonks.org/index.pl?node=162391"><b><font color="#0F0FAA">repository</font></b></a> for perl <a href="http://crazyinsomniac.perlmonk.org/perl/ppm"><b><font color="#0F0FAA">5.6.x</font></b></a> and <a href="http://crazyinsomniac.perlmonk.org/perl/ppm/5.8"><b><font color="#0F0FAA">5.8.x</font></b></a> -- I take requests (<a href="http://crazyinsomniac.perlmonk.org/perl/ppm/README.html"><b><font color="#0F0FAA">README</font></b></a>).</font></small></td></tr><tr><td colspan=2 bgcolor="#FFD0FF"><small><font color="black">** The third rule of perl club is a statement of fact: pod is sexy.</font></small></td></tr></table></div></div>
</div></div>
534376
534376