summaryrefslogtreecommitdiff
path: root/devel/rt3/patches/patch-sbin_rt-attributes-viewer
diff options
context:
space:
mode:
Diffstat (limited to 'devel/rt3/patches/patch-sbin_rt-attributes-viewer')
-rw-r--r--devel/rt3/patches/patch-sbin_rt-attributes-viewer15
1 files changed, 15 insertions, 0 deletions
diff --git a/devel/rt3/patches/patch-sbin_rt-attributes-viewer b/devel/rt3/patches/patch-sbin_rt-attributes-viewer
new file mode 100644
index 00000000000..5b907419df0
--- /dev/null
+++ b/devel/rt3/patches/patch-sbin_rt-attributes-viewer
@@ -0,0 +1,15 @@
+$NetBSD: patch-sbin_rt-attributes-viewer,v 1.1 2011/10/25 19:38:10 spz Exp $
+
+perl 5.14 qw() in for* fixes
+
+--- sbin/rt-attributes-viewer.orig 2011-04-14 01:10:12.000000000 +0000
++++ sbin/rt-attributes-viewer
+@@ -103,7 +103,7 @@ unless ( $attr->id ) {
+ }
+
+ my %res = ();
+-$res{$_} = $attr->$_() foreach qw(ObjectType ObjectId Name Description Content ContentType);
++$res{$_} = $attr->$_() foreach ( qw(ObjectType ObjectId Name Description Content ContentType) );
+
+ use Data::Dumper;
+ print "Content of attribute #$id: ". Dumper( \%res );