Author: gozer
Date: Sat Nov 12 21:44:27 2005
New Revision: 332900
URL: http://svn.apache.org/viewcvs?rev=332900&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=332900&r1=332899&r2=332900&view=diff
==============================================================================
--- perl/modperl/trunk/xs/ModPerl/Util/Util_pm (original)
+++ perl/modperl/trunk/xs/ModPerl/Util/Util_pm Sat Nov 12 21:44:27 2005
@@ -22,38 +22,38 @@
my $fullname = join '::', $package, $_;
# code/hash/array/scalar might be imported make sure the gv
# does not point elsewhere before undefing each
- if (%$fullname) {
- *{$fullname} = {};
- undef %$fullname;
+ 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) {
- 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}) {
+ local $@;
+ eval {
+ if (fileno $fullname) {
+ close $fullname;
}
- undef &$fullname;
- }
- if (*{$fullname}{IO}) {
- local $@;
- eval {
- if (fileno $fullname) {
- close $fullname;
- }
- };
- }
+ };
+ }
}
#Wipe from %INC
