From efdc067955e6eac4857853cb3170f0fb9d508e8d Mon Sep 17 00:00:00 2001 From: Jean-Michel Sarlat Date: Thu, 20 Oct 2011 06:55:02 +0200 Subject: [PATCH] psf2pst - correction du bug #1: chemin windows entre quotes et option -ps --- opt/psftopst | 8 ++++---- opt/psftopst.pl | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/opt/psftopst b/opt/psftopst index 9e37549..ffc6a27 100755 --- a/opt/psftopst +++ b/opt/psftopst @@ -9,7 +9,7 @@ use strict; # http://melusine.eu.org/syracuse/G/git/?p=pst-anamorphosis.git git # ============================================================================== -our $windows_pstoedit = ""; +our $windows_pstoedit = ''; our $on_windows = $^O =~ /^MSWin/; our $GS = $on_windows ? "gswin32c" : "gs"; @@ -18,11 +18,11 @@ our $PS = $on_windows ? $windows_pstoedit : "pstoedit"; # === Acquisition des options de la ligne de commande ------------------------- $::opt_dimmax = 4; # Dimension maximale : 4 cm par défaut -$::opt_t = 0; # Transformation initiale par pstoedit +$::opt_ps = 0; # Transformation initiale par pstoedit use Getopt::Long; GetOptions( "dimmax=s", - "t" + "ps" ); our $debug = 1; @@ -37,7 +37,7 @@ our $Fichier = $ARGV[0]; our ($Nom, $Dir, $Ext) = &FichierNRE($Fichier); # === Transformation éventuelle par pstoedit ----------------------------------- -if ($::opt_t) { +if ($::opt_ps) { use File::Copy; my $f = "$Nom-original$Ext"; copy($Fichier, $f); diff --git a/opt/psftopst.pl b/opt/psftopst.pl index 9e37549..ffc6a27 100755 --- a/opt/psftopst.pl +++ b/opt/psftopst.pl @@ -9,7 +9,7 @@ use strict; # http://melusine.eu.org/syracuse/G/git/?p=pst-anamorphosis.git git # ============================================================================== -our $windows_pstoedit = ""; +our $windows_pstoedit = ''; our $on_windows = $^O =~ /^MSWin/; our $GS = $on_windows ? "gswin32c" : "gs"; @@ -18,11 +18,11 @@ our $PS = $on_windows ? $windows_pstoedit : "pstoedit"; # === Acquisition des options de la ligne de commande ------------------------- $::opt_dimmax = 4; # Dimension maximale : 4 cm par défaut -$::opt_t = 0; # Transformation initiale par pstoedit +$::opt_ps = 0; # Transformation initiale par pstoedit use Getopt::Long; GetOptions( "dimmax=s", - "t" + "ps" ); our $debug = 1; @@ -37,7 +37,7 @@ our $Fichier = $ARGV[0]; our ($Nom, $Dir, $Ext) = &FichierNRE($Fichier); # === Transformation éventuelle par pstoedit ----------------------------------- -if ($::opt_t) { +if ($::opt_ps) { use File::Copy; my $f = "$Nom-original$Ext"; copy($Fichier, $f); -- 2.20.1