File: prompt.nested

package info (click to toggle)
libshell-posix-select-perl 0.08-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 800 kB
  • sloc: perl: 2,708; makefile: 2
file content (14 lines) | stat: -rwxr-xr-x 218 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#! /usr/bin/perl -w

my $VERSION = 1.02;

use blib;

use Shell::POSIX::Select qw($Prompt);

$Prompt='Custom Prompt for loop 1';
select ( 1 ){
	$Prompt='Custom Prompt for loop 2';
	LOOP2:
	select ( 2 ){ last LOOP2; }
}