Bug#501154: Patch adjustment

[Micah Anderson]

I've taken David's patch and removed the extraneous bits (substitutions
done because of the build process, etc.), and attached the adjusted diff
to this bug.

Micah

diff -u sympa-5.3.4/src/sympa.pl sympa-5.3.4/src/sympa.pl
--- sympa-5.3.4/src/sympa.pl
+++ sympa-5.3.4/src/sympa.pl
@@ -159,7 +159,7 @@
 
 $log_level = $main::options{'log_level'} if ($main::options{'log_level'}); 
 
-my @parser_param = ($*, $/);
+my @parser_param = ($/);
 my %loop_info;
 my %msgid_table;
 
@@ -890,7 +890,7 @@
 	my ($t_listname, $t_robot);
 	
 	# trying to fix a bug (perl bug ??) of solaris version
-	($*, $/) = @parser_param;
+	($/) = @parser_param;
 
 	## test ever if it is an old bad file
 	if ($t_filename =~ /^BAD\-/i){
diff -u sympa-5.3.4/debian/changelog sympa-5.3.4/debian/changelog
--- sympa-5.3.4/debian/changelog
+++ sympa-5.3.4/debian/changelog
@@ -1,3 +1,10 @@
+sympa (5.3.4-5.3) unstable; urgency=low
+
+  * Non-maintainer upload.
+  * Updating to comply with current versions of Perl (Closes: #501154).
+
+ -- David Moreno Garza <[EMAIL PROTECTED]>  Sat, 04 Oct 2008 19:47:33 -0400
+
 sympa (5.3.4-5.2) unstable; urgency=low
 
   * Non-maintainer upload.
only in patch2:
unchanged:
--- sympa-5.3.4.orig/src/Lock.pm
+++ sympa-5.3.4/src/Lock.pm
@@ -35,10 +35,10 @@
 use Fcntl qw(LOCK_SH LOCK_EX LOCK_NB);
 use FileHandle;
 
-sub LOCK_SH {1};
-sub LOCK_EX {2};
-sub LOCK_NB {4};
-sub LOCK_UN {8};
+sub LOCK_SH() {1};
+sub LOCK_EX() {2};
+sub LOCK_NB() {4};
+sub LOCK_UN() {8};
 
 my %list_of_locks;
 my $default_timeout = 60 * 20; ## After this period a lock can be stolen
only in patch2:
unchanged:
--- sympa-5.3.4.orig/src/parser.pl
+++ sympa-5.3.4/src/parser.pl
@@ -60,8 +60,8 @@
     my ($old_index, $old_data) = ($index, $data);
     my @old_t = @t;
 
-    my @old_mode = ($*, $/);
-    ($*, $/) = (0, "\n");
+    my @old_mode = ($/);
+    ($/) = (0, "\n");
 
     my $old_desc;
     if (ref($output) eq 'ARRAY') {           
@@ -104,6 +104,6 @@
 	select $old_desc;
     }
     
-    ($*, $/) = @old_mode;
+    ($/) = @old_mode;
 
     ($index, $data) = ($old_index, $old_data);
     @t = @old_t;

signature.asc
Description: Digital signature