Changeset 15894
- Timestamp:
- 2008-06-06T11:13:47+12:00 (16 years ago)
- Location:
- gsdl/trunk/perllib
- Files:
-
- 24 edited
-
ClassifyTreeModel.pm (modified) (1 diff)
-
ClassifyTreePath.pm (modified) (1 diff)
-
DateExtract.pm (modified) (1 diff)
-
IncrementalDocument.pm (modified) (1 diff)
-
XMLParser.pm (modified) (1 diff)
-
acronym.pm (modified) (1 diff)
-
cfgread.pm (modified) (1 diff)
-
cnseg.pm (modified) (1 diff)
-
doc.pm (modified) (1 diff)
-
docproc.pm (modified) (1 diff)
-
encodings.pm (modified) (1 diff)
-
expinfo.pm (modified) (1 diff)
-
g2futil.pm (modified) (1 diff)
-
gflock.pm (modified) (1 diff)
-
ghtml.pm (modified) (1 diff)
-
lang.pm (modified) (1 diff)
-
multiread.pm (modified) (1 diff)
-
muread.pm (modified) (1 diff)
-
parsargv.pm (modified) (1 diff)
-
parse2.pm (modified) (1 diff)
-
sorttools.pm (modified) (1 diff)
-
textcat.pm (modified) (1 diff)
-
unicode.pm (modified) (1 diff)
-
webpageutil.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/ClassifyTreeModel.pm
r12844 r15894 3 3 use ClassifyTreeNode; 4 4 use GDBMUtils; 5 use strict; 5 6 6 7 # /** Constructor -
gsdl/trunk/perllib/ClassifyTreePath.pm
r12844 r15894 1 1 package ClassifyTreePath; 2 2 3 require ClassifyTreePath; 3 use strict; 4 4 5 5 6 # /** Construct a new tree path object based on the given value path. -
gsdl/trunk/perllib/DateExtract.pm
r2018 r15894 23 23 24 24 my $shortmth = ""; 25 foreach $m (@months) { $shortmth .= (substr($m,0,3)."\\.?|"); }25 foreach my $m (@months) { $shortmth .= (substr($m,0,3)."\\.?|"); } 26 26 chop($shortmth); 27 27 -
gsdl/trunk/perllib/IncrementalDocument.pm
r12844 r15894 28 28 29 29 use GDBMUtils; 30 use strict; 30 31 31 32 # /** -
gsdl/trunk/perllib/XMLParser.pm
r9239 r15894 29 29 30 30 use XML::Parser; 31 31 use strict; 32 32 33 33 1; -
gsdl/trunk/perllib/acronym.pm
r15117 r15894 29 29 30 30 package acronym; 31 32 use strict; 31 33 32 34 ########################################################################### -
gsdl/trunk/perllib/cfgread.pm
r15889 r15894 28 28 package cfgread; 29 29 30 use strict; 30 use strict; no strict 'refs'; 31 31 32 32 -
gsdl/trunk/perllib/cnseg.pm
r537 r15894 30 30 package cnseg; 31 31 32 use strict; 32 33 use unicode; 33 34 -
gsdl/trunk/perllib/doc.pm
r15874 r15894 34 34 } 35 35 36 use strict; 36 37 use unicode; 37 38 use util; -
gsdl/trunk/perllib/docproc.pm
r12268 r15894 28 28 29 29 package docproc; 30 31 use strict; 32 30 33 31 34 sub new { -
gsdl/trunk/perllib/encodings.pm
r12604 r15894 28 28 29 29 package encodings; 30 31 use strict; 30 32 31 33 # $encodings takes the form: -
gsdl/trunk/perllib/expinfo.pm
r8518 r15894 32 32 # a file in the export directory and an OID. 33 33 34 package expinfo; 34 35 35 package expinfo; 36 37 use strict; 38 36 39 37 40 sub new { -
gsdl/trunk/perllib/g2futil.pm
r15656 r15894 18 18 } 19 19 20 use strict; 20 21 use util; 21 22 -
gsdl/trunk/perllib/gflock.pm
r1181 r15894 29 29 30 30 use Fcntl ':flock'; 31 use strict; 31 32 32 33 # returns true if successful (or if OS is a form of windows other than NT) -
gsdl/trunk/perllib/ghtml.pm
r8886 r15894 28 28 package ghtml; 29 29 30 use strict; 30 31 use unicode; 31 32 -
gsdl/trunk/perllib/lang.pm
r8716 r15894 28 28 29 29 package lang; 30 31 use strict; 30 32 31 33 @lang::trans = (["ab", "Abkhazian"], ["om", "Afan Oromo"], -
gsdl/trunk/perllib/multiread.pm
r12832 r15894 36 36 eval {require bytes}; 37 37 38 use strict; 38 39 use unicode; 39 40 -
gsdl/trunk/perllib/muread.pm
r627 r15894 24 24 package muread; 25 25 26 use strict; 26 27 use unicode; 27 28 use multiread; -
gsdl/trunk/perllib/parsargv.pm
r8716 r15894 25 25 26 26 package parsargv; 27 28 use strict; 29 27 30 # 28 31 # parse(ARGVREF, [SPEC, VARREF] ...) -
gsdl/trunk/perllib/parse2.pm
r12546 r15894 12 12 } 13 13 14 use strict; 14 15 use util; 15 16 -
gsdl/trunk/perllib/sorttools.pm
r10977 r15894 28 28 29 29 package sorttools; 30 31 use strict; 30 32 31 33 # moved here from BasClas so import can share it -
gsdl/trunk/perllib/textcat.pm
r2235 r15894 31 31 32 32 package textcat; 33 34 use strict; 33 35 34 36 # OPTIONS -
gsdl/trunk/perllib/unicode.pm
r10983 r15894 34 34 35 35 use encodings; 36 use strict; 36 37 use util; 37 38 -
gsdl/trunk/perllib/webpageutil.pm
r1010 r15894 2 2 3 3 use ghtml; 4 use strict; 4 5 5 6 sub error_location
Note:
See TracChangeset
for help on using the changeset viewer.
