perl - Is it unpolite to put an END block in a module? -


would ok keep end block in example, because nobody wants broken terminal or shouldn't put end block in module?

package my_package; use warnings; use strict; use term::readkey;  sub _init_scr {     ( $arg ) = @_;     $arg->{backup_flush} = $|;     $| = 1;     term::readkey::readmode 'ultra-raw'; }  sub _end_win {     ( $arg ) = @_;     print "\n\r";     term::readkey::readmode 'restore';     $| = $arg->{backup_flush}; }  end {     term::readkey::readmode 'restore'; }  sub my_function {     $arg = {};     _init_scr( $arg );     while ( 1 ) {         $c = readkey 0;         if ( ! defined $c ) {             _end_win( $arg );             warn "eot";             return;         }         next if $c eq "\e";         given ( $c ) {             when ( $c ge 'a' && $c le 'z' ) {                 print $c;                 $arg->{string} .= $c;             }             when ( $c eq "\cc" ) {                 _end_win( $arg );                 print stderr "^c";                 kill( 'int', $$ );                 return;             }             when ( $c eq "\r" ) {                 _end_win( $arg );                 return $arg->{string};             }         }     } }

if module changes terminal mode, think polite thing install end block restore terminal mode before program exits.


Comments

Post a Comment

Popular posts from this blog

linux - xterm copying to CLIPBOARD using copy-selection causes automatic updating of CLIPBOARD upon mouse selection -

i've tried various ways coerce xterm (versions 285 , 292) copy selection clipboard clipboard whenever press ctrl-shift-c. promising way far has been, in ~/.xresources, put this: xterm*vt100.translations: #override \ ctrl shift <keypress> c: copy-selection(clipboard) \n\ ctrl shift <keypress> v: insert-selection(clipboard) ctrl-shift-v works perfectly, copying has nuance... if restart xterm, highlighting text puts things in primary clipboard; expected, proper, default behavior. if hit ctrl-shift-c, copies current selection clipboard clipboard. the bug, however, if highlight text after first time pressed ctrl-shift-c, you'll see highlighting copies both primary and clipboard. cannot figure out how stop xterm updating clipboard upon selection... , doesn't make sense me in first place. i said, @ specific point in time, copy selection clipboard... yet starts updating automatically upon selection after doing once... anyone have workaround...
Read more

c++ - qgraphicsview horizontal scrolling always has a vertical delta -

Image
i've subclassed qgraphicsview custom canvas used in cad application. i've reimplemented qgraphicsview::wheelevent check keyboard modifiers control key and, if control key pressed, zoom. i'm trying implement horizontal scroll when user holds shift , uses wheel. the problem i'm having horizontal scrolling always scrolls 0.279. not huge problem, hugely annoying , points else being wrong. so, here questions: is right way implement horizontal scrolling? if not, is? how eliminate delta of 0.279? thanks in advance. code , sample output below void myview::zoom(int delta) { double factor = pow(1.2, delta/abs(delta)); this->scale(factor, factor); } void myview::scrollhorizontal(int level) { qpointf center = maptoscene(viewport()->rect().center()); qdebug() << "center: " << center.x() << ", " << center.y(); centeron(qpointf(center.x() - level, center.y())); } void myview::wheelevent(qwheeleve...
Read more