From: Jean-Michel Sarlat <jm.sarlat@gmail.com>
Date: Thu, 20 Oct 2011 04:55:02 +0000 (+0200)
Subject: psf2pst - correction du bug #1: chemin windows entre quotes et option -ps
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=pst-anamorphosis.git;a=commitdiff_plain;h=efdc067955e6eac4857853cb3170f0fb9d508e8d

psf2pst - correction du bug #1: chemin windows entre quotes et option -ps
---

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 = "<chemin vers pstoedit.exe>";
+our $windows_pstoedit = '<chemin vers pstoedit.exe>';
 
 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 = "<chemin vers pstoedit.exe>";
+our $windows_pstoedit = '<chemin vers pstoedit.exe>';
 
 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);