[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[groff] 01/01: gperl: replace capturex from IPC by backticks
From: |
Bernd Warken |
Subject: |
[groff] 01/01: gperl: replace capturex from IPC by backticks |
Date: |
Sat, 11 Oct 2014 13:46:53 +0000 |
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';
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [groff] 01/01: gperl: replace capturex from IPC by backticks,
Bernd Warken <=