Ignore DProf release tests

[perl5.git] / Porting / rt_list_patches

diff --git a/Porting/rt_list_patches b/Porting/rt_list_patches
old mode 100755 (executable)
new mode 100644 (file)
index 0628702..71145d4
--- a/Porting/rt_list_patches
+++ b/Porting/rt_list_patches
@@ -13,11 +13,18 @@ fi
 
 export RTSERVER=http://rt.perl.org/rt3
 
+
+
 if [ -z "$1"  ]; then
     echo "$0 ticketid [patchid]"
     exit
 fi
 
+if [ "$1" = "list" ]; then
+    rt ls "Queue = 'perl5' AND (Status = 'new' OR Status = 'open') AND (Type = 'patch' OR Subject LIKE 'patch')"
+    exit;
+fi
+
 if [ -z "$2" ]; then
     rt show ticket/$1/attachments  |grep -v "^id" |grep -v multipart\/
     exit