diff options
| author | fukachan <fukachan> | 2002-05-18 04:28:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-05-18 04:28:31 +0000 |
| commit | 451f5fc29a94e13ec13c99d90ab9c748171fb829 (patch) | |
| tree | 38c59f30f236396f1b1bb51a21c69ee053cc3eb8 /img/lib/IM/Folder.pm | |
| parent | a7c39ac461f1bd304432c54b11a3546b95d08da2 (diff) | |
| download | fml8-im141-20020413.tar.gz fml8-im141-20020413.tar.bz2 fml8-im141-20020413.zip | |
im-141 + patch (im-141+tats20020413.diff)im141-20020413
Diffstat (limited to 'img/lib/IM/Folder.pm')
| -rw-r--r-- | img/lib/IM/Folder.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/img/lib/IM/Folder.pm b/img/lib/IM/Folder.pm index 4f556bc2..572e8b8d 100644 --- a/img/lib/IM/Folder.pm +++ b/img/lib/IM/Folder.pm @@ -5,10 +5,10 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Feb 28, 2000 +### Revised: Apr 14, 2000 ### -my $PM_VERSION = "IM::Folder.pm version 20000228(IM140)"; +my $PM_VERSION = "IM::Folder.pm version 20000414(IM141)"; package IM::Folder; require 5.003; @@ -338,6 +338,7 @@ sub touch_folder ($) { $dir = &expand_path($dir); my($file) = ($dir . "/" . &touchfile()); im_open(\*OF,">$file"); + print OF "touched by IM."; close(OF); } elsif (&os2p) { my ($dir) = shift; |