[groff] 01/01: gperl: replace capturex from IPC by backticks

[Bernd Warken]

bwarken pushed a commit to branch master
in repository groff.

commit ae337a8d0014b7f8936d9221a14c755354ddb6ee
Author: Bernd Warken <address@hidden>
Date:   Sat Oct 11 15:46:45 2014 +0200

    gperl: replace capturex from IPC by backticks
---
 contrib/gperl/ChangeLog |    6 ++++++
 contrib/gperl/gperl.man |   24 +++---------------------
 contrib/gperl/gperl.pl  |   10 +++-------
 3 files changed, 12 insertions(+), 28 deletions(-)

diff --git a/contrib/gperl/ChangeLog b/contrib/gperl/ChangeLog
index 05d5648..4da5ffe 100644
--- a/contrib/gperl/ChangeLog
+++ b/contrib/gperl/ChangeLog
@@ -1,3 +1,9 @@
+2014-10-11  Bernd Warken  <address@hidden>
+
+       * gperl.pl: Version 1.2.6
+       Replace `capturex' with backtics, so `use IPC::System::Simple'
+       can be removed.
+
 2014-09-03  Bernd Warken  <address@hidden>
 
        * gperl.pl: Version 1.2.5
diff --git a/contrib/gperl/gperl.man b/contrib/gperl/gperl.man
index 390b3fd..3600f4d 100644
--- a/contrib/gperl/gperl.man
+++ b/contrib/gperl/gperl.man
@@ -216,21 +216,8 @@ is to store one or more results from the
 .P
 The output of a
 .I Perl part
-can be got by using one of the
-.I Perl commands
-from
-.BR IPC::System::Simple :
-.BR capture ,
-.BR capturex ,
-.BR run ,
-.BR runx ,
-.BR system ,
-or
-.BR systemx .
-.
-Several of these programs work, we use now the program
-.B capturex
-from running Perl parts.
+can be got with backticks
+.BR `...` .
 .
 .
 .P
@@ -514,12 +501,7 @@ Documents related to
 .I Perl
 are
 .BR \%perl (@MAN1EXT@),
-.BR \%perl (@MAN7EXT@),
-and
-.UR http://\:search.cpan.org/\:~pjf/\:IPC-System-Simple-1.25/\:lib/\:\
-IPC/\:System/\:Simple.pm
-.IR "Perl " IPC:System:Simple
-.UE
+.BR \%perl (@MAN7EXT@).
 .
 .
 .\" --------------------------------------------------------------------
diff --git a/contrib/gperl/gperl.pl b/contrib/gperl/gperl.pl
index 78a52d2..4571f64 100755
--- a/contrib/gperl/gperl.pl
+++ b/contrib/gperl/gperl.pl
@@ -9,7 +9,7 @@
 
 # Written by Bernd Warken <address@hidden>.
 
-my $version = '1.2.5';
+my $version = '1.2.6';
 
 # This file is part of `gperl', which is part of `groff'.
 
@@ -50,10 +50,6 @@ use Cwd;
 # $Bin is the directory where this script is located
 use FindBin;
 
-# for running the perl parts with the `Perl' programs and getting output
-# also useful for shell programs
-use IPC::System::Simple qw(capture capturex run runx system systemx);
-
 
 ########################################################################
 # system variables and exported variables
@@ -193,7 +189,7 @@ foreach (<>) {
   ##########
   # run this `Perl' part, later on about storage of the result
   # array stores prints with \n
-  my @print_res = capturex('perl',  $out_file);
+  my @print_res = `perl $out_file`;
 
   # remove `stop' arg if exists
   shift @args if ( $args[0] eq 'stop' );
@@ -206,7 +202,7 @@ foreach (<>) {
   my @var_names = ();
   my @mode_names = ();
 
-  my $mode = 'ds';
+  my $mode = '.ds';
   for ( @args ) {
     if ( /^\.?ds$/ ) {
       $mode = '.ds';