[Rt-commit] r6312 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Fri Oct 27 01:40:51 2006
New Revision: 6312

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/t/regression/08web_cf_access.t

Log:
 r4050 at cubic-pc:  cubic | 2006-10-27 05:49:36 +0400
 * drop uninit warnings


Modified: rt/branches/3.7-EXPERIMENTAL/lib/t/regression/08web_cf_access.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/t/regression/08web_cf_access.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/t/regression/08web_cf_access.t	Fri Oct 27 01:40:51 2006
@@ -13,8 +13,7 @@
 use constant ImageFile => $RT::MasonComponentRoot .'/NoAuth/images/bplogo.gif';
 use constant ImageFileContent => do {
     local $/;
-    open my $fh, '<', ImageFile or die $!;
-    binmode($fh);
+    open my $fh, '<:raw', ImageFile or die $!;
     scalar <$fh>;
 };
 
@@ -23,6 +22,7 @@
 
 $m->get( BaseURL."?user=root;pass=password" );
 $m->content_like(qr/Logout/, 'we did log in');
+
 $m->follow_link( text => 'Configuration' );
 $m->title_is(q/RT Administration/, 'admin screen');
 $m->follow_link( text => 'Custom Fields' );
@@ -51,7 +51,7 @@
 my @names = map  { $_->[1] }
             sort { $a->[0] <=> $b->[0] }
             map  { /Object-1-CF-(\d+)/ ? [ $1 => $_ ] : () }
-            map  $_->name, $m->current_form->inputs;
+            grep defined, map $_->name, $m->current_form->inputs;
 my $tcf = pop(@names);
 $m->field( $tcf => 1 );         # Associate the new CF with this queue
 $m->field( $_ => undef ) for @names;    # ...and not any other. ;-)