From a7fc7c232a947d56556c73b00a4a89c1370c9d1d Mon Sep 17 00:00:00 2001
From: "myk%mozilla.org" <>
Date: Thu, 30 May 2002 08:44:33 +0000
Subject: Fix for bug 148011: Move pseudo-method definitions together. Patch by
 Myk Melez <myk@mozilla.org>. 2xr=justdave

---
 globals.pl | 45 +++++++++++++++++++++++----------------------
 1 file changed, 23 insertions(+), 22 deletions(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index 44e29eafa..bb6a0abc5 100644
--- a/globals.pl
+++ b/globals.pl
@@ -1602,6 +1602,29 @@ $Template::Stash::LIST_OPS->{ containsany } =
       return 0;
   };
 
+# Add a "substr" method to the Template Toolkit's "scalar" object
+# that returns a substring of a string.
+$Template::Stash::SCALAR_OPS->{ substr } = 
+  sub {
+      my ($scalar, $offset, $length) = @_;
+      return substr($scalar, $offset, $length);
+  };
+    
+# Add a "truncate" method to the Template Toolkit's "scalar" object
+# that truncates a string to a certain length.
+$Template::Stash::SCALAR_OPS->{ truncate } = 
+  sub {
+      my ($string, $length, $ellipsis) = @_;
+      $ellipsis ||= "";
+      
+      return $string if !$length || length($string) <= $length;
+      
+      my $strlen = $length - length($ellipsis);
+      my $newstr = substr($string, 0, $strlen) . $ellipsis;
+      return $newstr;
+  };
+    
+###############################################################################
 
 sub GetOutputFormats {
     # Builds a set of possible output formats for a script by looking for
@@ -1712,28 +1735,6 @@ sub ValidateOutputFormat {
 
 ###############################################################################
 
-# Add a "substr" method to the Template Toolkit's "scalar" object
-# that returns a substring of a string.
-$Template::Stash::SCALAR_OPS->{ substr } = 
-  sub {
-      my ($scalar, $offset, $length) = @_;
-      return substr($scalar, $offset, $length);
-  };
-    
-# Add a "truncate" method to the Template Toolkit's "scalar" object
-# that truncates a string to a certain length.
-$Template::Stash::SCALAR_OPS->{ truncate } = 
-  sub {
-      my ($string, $length, $ellipsis) = @_;
-      $ellipsis ||= "";
-      
-      return $string if !$length || length($string) <= $length;
-      
-      my $strlen = $length - length($ellipsis);
-      my $newstr = substr($string, 0, $strlen) . $ellipsis;
-      return $newstr;
-  };
-    
 # Define the global variables and functions that will be passed to the UI
 # template.  Additional values may be added to this hash before templates
 # are processed.
-- 
cgit v1.2.3-24-g4f1b