Author: gozer Date: Mon Nov 7 14:47:23 2005 New Revision: 331631 URL: http://svn.apache.org/viewcvs?rev=331631&view=rev Log: whitespace change only
Modified: perl/modperl/trunk/xs/ModPerl/Util/Util_pm Modified: perl/modperl/trunk/xs/ModPerl/Util/Util_pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/ModPerl/Util/Util_pm?rev=331631&r1=331630&r2=331631&view=diff ============================================================================== --- perl/modperl/trunk/xs/ModPerl/Util/Util_pm (original) +++ perl/modperl/trunk/xs/ModPerl/Util/Util_pm Mon Nov 7 14:47:23 2005 @@ -23,35 +23,35 @@ # code/hash/array/scalar might be imported make sure the gv # does not point elsewhere before undefing each eval { - if (%$fullname) { - *{$fullname} = {}; - undef %$fullname; - } - if (@$fullname) { - *{$fullname} = []; - undef @$fullname; - } - if ($$fullname) { - my $tmp; # argh, no such thing as an anonymous scalar - *{$fullname} = \$tmp; - undef $$fullname; - } - if (defined &$fullname) { - no warnings; - local $^W = 0; - if (defined(my $p = prototype $fullname)) { - *{$fullname} = eval "sub ($p) {}"; + if (%$fullname) { + *{$fullname} = {}; + undef %$fullname; } - else { - *{$fullname} = sub {}; + if (@$fullname) { + *{$fullname} = []; + undef @$fullname; } - undef &$fullname; - } - if (*{$fullname}{IO}) { - if (fileno $fullname) { - close $fullname; + if ($$fullname) { + my $tmp; # argh, no such thing as an anonymous scalar + *{$fullname} = \$tmp; + undef $$fullname; + } + if (defined &$fullname) { + no warnings; + local $^W = 0; + if (defined(my $p = prototype $fullname)) { + *{$fullname} = eval "sub ($p) {}"; + } + else { + *{$fullname} = sub {}; + } + undef &$fullname; + } + if (*{$fullname}{IO}) { + if (fileno $fullname) { + close $fullname; + } } - } }; }