git://git.camperquake.de
/
videosite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5d1f166
)
libvideosite: use path argument properly in _config_list_* helpers
author
Ralf Ertzinger
<ralf@skytale.net>
Tue, 30 Apr 2013 17:41:33 +0000
(19:41 +0200)
committer
Ralf Ertzinger
<ralf@skytale.net>
Tue, 30 Apr 2013 17:41:33 +0000
(19:41 +0200)
libvideosite.pm
patch
|
blob
|
history
diff --git
a/libvideosite.pm
b/libvideosite.pm
index
4252338
..
52a771b
100644
(file)
--- a/
libvideosite.pm
+++ b/
libvideosite.pm
@@
-339,7
+339,7
@@
sub _config_list_add {
@c = ();
}
@c = ();
}
- _debug("Adding %s to list %s", $item, join(".",
$path
));
+ _debug("Adding %s to list %s", $item, join(".",
@{$path}
));
unless(grep { $_ eq $item } @c) {
push(@c, $item);
};
unless(grep { $_ eq $item } @c) {
push(@c, $item);
};
@@
-359,7
+359,7
@@
sub _config_list_del {
return;
}
return;
}
- _debug("Removing %s from list %s", $item, join('.',
$path
));
+ _debug("Removing %s from list %s", $item, join('.',
@{$path}
));
@c = map { $item ne $_ } split(/\s*,\s*/, _config_get($path));
_config_set($path, join('.', @c));
@c = map { $item ne $_ } split(/\s*,\s*/, _config_get($path));
_config_set($path, join('.', @c));
@@
-376,7
+376,7
@@
sub _config_list_has {
return 0;
}
return 0;
}
- _debug("Checking for %s in list %s", $item, join('.',
$path
));
+ _debug("Checking for %s in list %s", $item, join('.',
@{$path}
));
return grep { $item eq $_ } split(/\s*,\s*/, _config_get($path));
}
return grep { $item eq $_ } split(/\s*,\s*/, _config_get($path));
}
@@
-387,7
+387,7
@@
sub _config_list_has {
sub _config_list_set {
my $path = shift;
sub _config_list_set {
my $path = shift;
- _debug("Replacing %s with (%s)", join('.',
$path
), join(",", @_));
+ _debug("Replacing %s with (%s)", join('.',
@{$path}
), join(",", @_));
_config_set($path, join(',', @_));
}
_config_set($path, join(',', @_));
}