Term::Choose - #176440 (Projekte)

Linuxer

2014-07-14 18:31

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Über das "ist das gut" mag man streiten; ich mag's weniger, finde es aber akzeptabel bis OK.

Wie wäre es damit, diese Option per Variable an- oder abzuschalten? Schema:

Code (perl): (dl )

use Term::Choose;
$Term::Choose::Keep_Win32_Codepage = 1;

...

und im Modul dann

Code (perl): (dl )

package Term::Choose;
...
if ( $Term::Choose::Keep_Win32_Codepage ) {
  local $| = 1;   # braucht's das vielleicht noch?
  print "\e(U";
}

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!