File: maildirsync.pl.diff

package info (click to toggle)
maildirsync 1.2-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 188 kB
  • sloc: perl: 621; sh: 141; pascal: 134; makefile: 37
file content (23 lines) | stat: -rw-r--r-- 785 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Index: maildirsync-1.2/maildirsync.pl
===================================================================
--- maildirsync-1.2.orig/maildirsync.pl	2011-08-30 11:34:05.484546482 -0430
+++ maildirsync-1.2/maildirsync.pl	2011-08-30 11:35:09.052535202 -0430
@@ -10,7 +10,6 @@
 use IO::Handle;
 use IPC::Open2;
 use Fcntl qw(SEEK_SET);
-use UNIVERSAL qw(isa);
 use strict;
 use warnings;
 require 5.006;
@@ -96,8 +95,8 @@
         exit_with_error("Invalid parameter value: $optname: $value") if $value !~ /^$regex$/;
     }
     verbose 4 => "add option $optname = ".($value || "");
-    if (!isa($OPT{$optname}, 'ARRAY')) {
-        $OPT{$optname} = $value;
+	if (!(ref($OPT{$optname}) eq 'ARRAY')) {
+	$OPT{$optname} = $value;
     } else {
         push @{$OPT{$optname}}, $value;
     }