[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: sources.list pour les scripts



Le mercredi 13 février 2002, Christian Perrier écrit :
> Bonjour les dégâts sur ma patate :
[...]

Je vais installer un patate sur une partition après demain, comme ça je
pourrait faire des tests. Une nouvelle version est dispo.

La rustine est attachée, et voici le journal des modifications :
 ddts-script (0.4.17) unstable; urgency=low
 .
   * changes for potato perl compatibility
     thanks to Christian Pierrer for reporting this bug


Nicolas
-- 
--- ddts-script_0.4.16	Tue Feb 12 00:00:00 2002
+++ ddts-script_0.4.17	Wed Feb 13 00:00:00 2002
@@ -1,7 +1,6 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use strict;
-use warnings;
 use Getopt::Long;
 
 # Config part
@@ -53,7 +52,7 @@
 # End of the config part
 
 
-my $version = "0.4.16";
+my $version = "0.4.17";
 
 # Test if configuration as been made
 die "Script unconfigured: email address is `me\@my.isp.org'\n!" if ($mail_addr =~ /me\@my.isp.org/);
@@ -1261,7 +1260,7 @@
 {
 	my $v;
 	my $m;
-	Getopt::Long::Configure("gnu_getopt");			# set standard gnu options
+	Getopt::Long::Configure qw(permute bundling);		# set standard gnu options (for potato perl)
 	Getopt::Long::GetOptions (
 		'verbose=i'	=> \$v,				# verbose <value>
 		'v+'		=> \$v,				# incremental

Reply to: