SHARE
TWEET

Untitled

a guest Jun 5th, 2017 106 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. use Symbol;
  2. use IPC::Open3 qw( open3 );
  3. my ( $in, $out );
  4. my $err = Symbol::gensym;
  5. my $binary = 'git';
  6. my $pid = open3( $in, $out, $err, $binary, '--version' );
  7. waitpid $pid, 0;
  8. print <$out>;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top