1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Description: "queryresume.pl: Use POSIX.pm"
Forwarded: not-needed
Author: Christoph Berg <myon@debian.org>
Last-Update: 2016-02-29
--- a/scripts/queryresume.pl
+++ b/scripts/queryresume.pl
@@ -10,12 +10,12 @@ $VERSION = '2003021201';
name => 'QueryResume',
description => 'restores the last lines of a query on re-creation',
license => 'GPLv2',
- modules => 'Date::Format File::Glob',
+ modules => 'POSIX File::Glob',
changed => $VERSION,
);
use Irssi 20020324;
-use Date::Format;
+use POSIX qw(strftime);
use File::Glob ':glob';
sub draw_box ($$$$) {
@@ -41,8 +41,7 @@ sub sig_window_item_new ($$) {
$filename =~ s/\$tag\b|\$\{tag\}|\$1\b|\$\{1\}/$servertag/g;
$filename =~ s/\$0\b|\$\{0\}/$name/g;
my @lt = localtime(time);
- my $zone;
- $filename = strftime($filename, @lt, $zone);
+ $filename = strftime($filename, @lt);
$filename =~ s/(\[|\])/\\$1/g;
local *F;
open(F, "<", bsd_glob($filename));
|
