[Orca-checkins] r482 - orca/trunk/lib/Orca

[blair at orcaware.com]

Author: blair at orcaware.com
Date: Fri Sep  2 07:31:47 2005
New Revision: 482

Modified:
   orca/trunk/lib/Orca/Utils.pm

Log:
Remove an unused function.

* lib/Orca/Utils.pm
  (old_name_to_fsname):
    Remove this function as it is no longer being used.


Modified: orca/trunk/lib/Orca/Utils.pm
==============================================================================
--- orca/trunk/lib/Orca/Utils.pm	(original)
+++ orca/trunk/lib/Orca/Utils.pm	Fri Sep  2 07:31:47 2005
@@ -159,22 +159,6 @@
   $name;
 }
 
-sub old_name_to_fsname {
-  my $name = shift;
-  $name =~ s/:/_/g;
-  $name =~ s:/:_per_:g;
-  $name =~ s:\s+:_:g;
-  $name =~ s:%:_percent_:g;
-  $name =~ s:#:_number_:g;
-  $name =~ s:\*:_X_:g;
-  $name =~ s:([_,]){2,}:$1:g;
-
-  # Remove trailing _'s.
-  $name =~ s:_+$::;
-  $name =~ s:_+,:,:g;
-  $name;
-}
-
 # Find all files matching a particular Perl regular expression and
 # return file ids.
 sub perl_glob {