ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Utilities/AddDir.pm

Comparing COMP/SCRAM/src/Utilities/AddDir.pm (file contents):
Revision 1.1 by williamc, Mon Mar 1 10:35:01 1999 UTC vs.
Revision 1.3 by williamc, Thu Mar 18 10:32:04 1999 UTC

#	Line 1 | Line 1
1	–	#!/usr/local/bin/perl5
2	–	#
3	–
1		package AddDir;
2	+	require 5.001;
3		require Exporter;
4		use Cwd;
5		@ISA    = qw(Exporter);
6		@EXPORT = qw(adddir);
7
8	<	sub adddir ($directory) {
8	>	sub adddir {
9		my $indir=shift;
10		my $startdir=cwd;
11		my @dir=split /\//,  $indir;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines