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;
+ }
}
- }
};
}
