Magyarázatot kérek egy rövid szubrutinhoz

Perl sigsegv??? Látatlanba perl bug/hibás telepítés lenne a tippem. Vagy annyira rég volt, ogy rosszul emlékszem a működésére. (a debugger elszállás már belefér)

Nagyon túlbonyolítva (mintha a nyelv lehetséges poénjait akarná felvonultatni) megvalósítja a halmazok metszetét (intersection, innen az inter szubrutinnév).
A @one és @two rendezett listák közös elemeit adja vissza.

Aki azt a harmadik sort leírta, az valószínűleg más aljasságra is képes.

my @first = splice(@_,0,shift);

Ezzel az a probléma, hogy a shift a @_ tömb első elemét eltávolítja és azt adja vissza értékül. Normál függvényhívás esetén a @_ az argumentum listában már kiértékelésre kerülne a shift hívás végrehajtásának idejére és az argumentum listába belekerülne a később a shift által eltávolítandó első elem is, amit itt az első tömb hossza lenne.

Azonban a splice nem normál függvényhívás, hanem C kódban megvalósított beépített függvény. Ő valójában nem @_ elemeit kapja meg az első paraméterben, hanem a @_ tömbre való belső (C kódbeli) hivatkozást. Emiatt viszont a harmadik paraméterben levő shift hívás a splice lefutása elött már eltávolítja az első elemet, megváltoztatva a @_ változót, így a splice valóban csak első tömb elemeit távolítja el a @_ listából és adja vissza őket.

Általánosságban is kifejezetten rossz ötlet az argumentum listában változó értékét módosítani, külön nagyon rossz ötlet a argumentum listában egyébként másik paraméter pozícióban is használt változó értékét módosítani, de a normál függvény és a beépített függvény paraméter átadása közötti különbség miatt hatványozottan félrevezető és a lehető legrosszabb fenti példa.