diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 19:01:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 19:01:51 +0000 |
| commit | 86b00b91adbc06e25e98c02d22e725e1888cb041 (patch) | |
| tree | 203a2af93e657225e1781d7679d5782867335370 /eg/changes | |
| parent | 50f338d87df77eb836fe2a83fce72fbd3e40e1df (diff) | |
| download | perl-86b00b91adbc06e25e98c02d22e725e1888cb041.tar.gz | |
Delete eg as agreed at TPC3 (yes, 3). Dusty, obsolete, non-w-clean.
May be repopulated with fresh maintained examples.
p4raw-id: //depot/perl@6556
Diffstat (limited to 'eg/changes')
| -rw-r--r-- | eg/changes | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/eg/changes b/eg/changes deleted file mode 100644 index 901e1eda9e..0000000000 --- a/eg/changes +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl -P - -# $RCSfile: changes,v $$Revision: 4.1 $$Date: 92/08/07 17:20:08 $ - -($dir, $days) = @ARGV; -$dir = '/' if $dir eq ''; -$days = '14' if $days eq ''; - -# Masscomps do things differently from Suns - -#if defined(mc300) || defined(mc500) || defined(mc700) -open(Find, "find $dir -mtime -$days -print |") || - die "changes: can't run find"; -#else -open(Find, "find $dir \\( -fstype nfs -prune \\) -o -mtime -$days -ls |") || - die "changes: can't run find"; -#endif - -while (<Find>) { - -#if defined(mc300) || defined(mc500) || defined(mc700) - $x = `/bin/ls -ild $_`; - $_ = $x; - ($inode,$perm,$links,$owner,$group,$size,$month,$day,$time,$name) - = split(' '); -#else - ($inode,$blocks,$perm,$links,$owner,$group,$size,$month,$day,$time,$name) - = split(' '); -#endif - - printf("%10s%3s %-8s %-8s%9s %3s %2s %s\n", - $perm,$links,$owner,$group,$size,$month,$day,$name); -} - |