--- nfo/perl/libs/org/netfrag/pkgTools.pm	2003/01/20 21:19:42	1.1
+++ nfo/perl/libs/org/netfrag/pkgTools.pm	2003/03/27 15:42:27	1.2
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: pkgTools.pm,v 1.1 2003/01/20 21:19:42 joko Exp $
+##  $Id: pkgTools.pm,v 1.2 2003/03/27 15:42:27 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: pkgTools.pm,v $
+##  Revision 1.2  2003/03/27 15:42:27  joko
+##  minor fix: substitute certain chars in packagename?
+##
 ##  Revision 1.1  2003/01/20 21:19:42  joko
 ##  + initial check-in
 ##
@@ -26,6 +29,7 @@
 
 sub mkSnapshotFilename {
   my $input = shift;
+  $input =~ s/\//-/g;
   my $stamp = now({ fs => 1 });
   my $target = $input . '_' . $stamp . '.tar.gz';
   return $target;