Daisuke Maki > Senna-0.51 > tools/prompt.pl

Download:
Senna-0.51.tar.gz

Annotate this POD

CPAN RT

New  1
Open  1
View/Report Bugs
Source  

print "******************************\n", "* WARNING! WARNING! WARNING! *\n", "******************************\n", "\n", "This version of Senna.pm breaks compatibility with the previous versions.\n", "You are STRONGLY advised to audit your applications prior to upgrading.\n", "\n", "Proceed ? [n] "; ^

$tmp = <STDIN>; chomp $tmp; if ($tmp !~ /^y(?:es)?$/) { exit 1; }

syntax highlighting: