stas 2004/11/01 15:52:20
Modified: lib/Apache Build.pm Log: - sort the keys of Apache::BuildConfig so it's easier to study and compare bug reports - compress a bit the Data::Dumper dump Revision Changes Path 1.187 +6 -2 modperl-2.0/lib/Apache/Build.pm Index: Build.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v retrieving revision 1.186 retrieving revision 1.187 diff -u -u -r1.186 -r1.187 --- Build.pm 26 Sep 2004 07:06:23 -0000 1.186 +++ Build.pm 1 Nov 2004 23:52:20 -0000 1.187 @@ -788,7 +788,8 @@ sub freeze { require Data::Dumper; - local $Data::Dumper::Terse = 1; + local $Data::Dumper::Terse = 1; + local $Data::Dumper::Sortkeys = 1; my $data = Data::Dumper::Dumper(shift); chomp $data; $data; @@ -818,7 +819,10 @@ $file ||= $self->default_file('build_config'); $file = $self->file_path($file); - (my $obj = $self->freeze) =~ s/^/ /; + my $obj = $self->freeze; + $obj =~ s/^\s{9}//mg; + $obj =~ s/^/ /; + open my $fh, '>', $file or die "open $file: $!"; #work around autosplit braindeadness
