1*de8cc8edSafresh1#!./perl 2*de8cc8edSafresh1 3*de8cc8edSafresh1use strict; 4*de8cc8edSafresh1use warnings; 5*de8cc8edSafresh1 6*de8cc8edSafresh1sub freeze_at_begin { 7*de8cc8edSafresh1 my ($var) = @_; 8*de8cc8edSafresh1 9*de8cc8edSafresh1 return $var =~ m{$var}o; 10*de8cc8edSafresh1} 11*de8cc8edSafresh1 12*de8cc8edSafresh1BEGIN { 13*de8cc8edSafresh1 chdir 't' if -d 't'; 14*de8cc8edSafresh1 require './test.pl'; 15*de8cc8edSafresh1 16*de8cc8edSafresh1 freeze_at_begin('frozen'); 17*de8cc8edSafresh1} 18*de8cc8edSafresh1 19*de8cc8edSafresh1plan tests => 2; 20*de8cc8edSafresh1 21*de8cc8edSafresh1ok( !freeze_at_begin('not'), "/o done at begin is preserved and a new string does not match" ); 22*de8cc8edSafresh1ok( freeze_at_begin('frozen'), "/o done at begin is preserved and the original string matches" ); 23*de8cc8edSafresh1 24*de8cc8edSafresh11; 25*de8cc8edSafresh1 26*de8cc8edSafresh1# 27*de8cc8edSafresh1# ex: set ts=8 sts=4 sw=4 et: 28*de8cc8edSafresh1# 29