Author: twists
Date: Sat Jun 6 22:32:38 2009
New Revision: 756
Modified:
trunk/lib/Devel/NYTProf/Core.pm
Log:
Clean up crud
Modified: trunk/lib/Devel/NYTProf/Core.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Core.pm (original)
+++ trunk/lib/Devel/NYTProf/Core.pm Sat Jun 6 22:32:38 2009
@@ -19,7 +19,7 @@
XSLoader::load('Devel::NYTProf', $VERSION);
if (my $NYTPROF = $ENV{NYTPROF}) {
- for my $optval ( $NYTPROF =~ /((?:[^\\:]+|\\.)+)/g) {#split /:/,
$NYTPROF) {
+ for my $optval ( $NYTPROF =~ /((?:[^\\:]+|\\.)+)/g) {
my ($opt, $val) = $optval =~ /^((?:[^\\=]+|\\.)+)=((?:[^\\=]+|
\\.)+)\z/;
DB::set_option($opt, $val);
}
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
-~----------~----~----~----~------~----~------~--~---
