File: 80expunge.dpatch

package info (click to toggle)
libnetxap-perl 0.02-6
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 232 kB
  • ctags: 276
  • sloc: perl: 1,595; sh: 156; makefile: 49
file content (20 lines) | stat: -rw-r--r-- 612 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /bin/sh /usr/share/dpatch/dpatch-run
## 80expunge.dpatch by Niko Tyni <ntyni@iki.fi>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Fix handling of expunge responses. (#366209)
## DP: Patch by Torsten Hilbrich.

@DPATCH@
diff -urNad trunk~/Net/IMAP.pm trunk/Net/IMAP.pm
--- trunk~/Net/IMAP.pm	2006-05-13 21:05:00.000000000 +0300
+++ trunk/Net/IMAP.pm	2006-05-13 21:06:11.260093080 +0300
@@ -1853,7 +1853,7 @@
   return $self;
 }
 
-sub msgnum { $_->{Msgnum} }
+sub msgnum { $_[0]->{Msgnum} }
 
 ###############################################################################