Changeset 6141 for trunk/SOURCE_TOOLS/profile_annotate.pl

Timestamp:

14/08/09 16:29:27 (3 years ago)

Author:

westram

Message:

• spellchecked all (phew)

Files:

• trunk/SOURCE_TOOLS/profile_annotate.pl (modified) (2 diffs)

trunk/SOURCE_TOOLS/profile_annotate.pl

@@ -68 +68 @@
   my $totals    = undef;
   my $dummy;
-  my $seperator = undef;
+  my $separator = undef;
 
   while (not defined $totals && $nr<$maxnr) {
@@ -76 +76 @@
       ($totals,$dummy) = scanLine($line);
     }
-    elsif (not defined $seperator) {
-      if ($line =~ /^-+$/o) { $seperator = $line; }
+    elsif (not defined $separator) {
+      if ($line =~ /^-+$/o) { $separator = $line; }
     }
   }
 
   if (not defined $totals) { die "Could not parse PROGRAM TOTALS"; }
-  if (not defined $seperator) { die "No separator found"; }
+  if (not defined $separator) { die "No separator found"; }
 
   my $last_line = pop @out;